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REM : 


IDENTIFICATION 


PRODUCT CODE: © MAINDEC-11-D2TCD-C-D 

PRODUCT NAME: TC4 - TCL TEST 4 

DATE: = —~—=—sSUNE-15, 1973 

MAINTAINER: DIAGNOSTIC GROUP 

RUTHOR: L.R. KOLLER 

THIS MAINDEC OBSOLETES MAINDEC-11-D30C 

re COPYRIGHT 1972, 1973, DIGITAL EQUIPMEN: CORP., MAYNARD, MASS. 





TCH = TC11 TEST 4 IS PART 4 OF A FIVE PROGRAM PACKAGE 
USED TO TEST THE TC11 DECTAPE CONTROL. 
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Tew - TLL TEST 4 IS PART’ 4 W OF A FIVE PROGRAM F PACKAGE USED 10 TEST THE 
ang ERO one fo 10. ert SELECTED. TRANS ons. ve CONCENTRATES. ON on aeStiNG : 
FOR KORRECT OPERATION OF THE RARITY” CIRCUITS. 


at ah sta TIMES QUOTED ARE TYPICAL OF A 11/20 SYSTEM. 
XE ON TIMES IN OTHER POP-11 SYSTEMS WILL VARY. 


swe * ch 

noanabeh 

R. POP-11 SYSTEM (4K CORE). 

5: A reise rOTE QT, Au. STLERST. ONE Tus SUHE GUARD AREAS 


OF THE TAPE BLOCKS MUST BE ZERO. IF NECESSARY, REFORMAT THE TAPE. 


THE TELETYPE AND TC11 CONTROL MUST HAVE THEIR STANDARD PERIPHERAL 
BODRESSES INTERRUP LEVELS. AND INTERRUPT VECTOR ADDRESSES. 
REFER TO SECTION 7.2 IF YOUR SYSTEM DOES NOT HAVE STANDARD 
PERIPHERAL ADDRESSES. 


THIS PROGRAM USES LOCATIONS O00000 THROUGH 017500. 
LOADING PROCEOURE 


THIS PROGRAM'S OBJECT TAPE IS ° oy IN ABSOLUTE FORMAT. 
THE ABS LOADER IS USED TO LORD THE PROGRAM. 


DO1 | | 
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ozTcoc. Pll 
ee 4. -- USE PROCEDURE 
a. L080 UNIT UNITS TO BE Fs WITH STANDARD FORMAT DECTAPE. SET TO 
8. § crt ih ay ’ WALL SWITCH TO ON. 
p. press Start : Ei E F, TYPES SETUP INST ONS, <fio HALTS 
. PERFOR SEY p STEPe A ANG 8), SET UN arte $0 BET REFER TR 
, . 3k UNIT7, SR6 Tee bates 


ie eee Ss PE SETTONS Bessa. Get T DESIRED SR Herc es . ; 


THIS PROGRAM’S SR OPTIONS ARE: 


SRIS = 1 

SR14¥ = 1 

SR13 = 1 ENTER sc any PRINTOUT 

SR11 = 1 INBIT we 

SR10 = 1 HALT A TEST Seen EXECUTING 

SRS =] SELECT Ue rest § SPECIFIED Y SR7 THROUGH SRO 
SR7 THROUGH SRO - NUMBER OF TEST T SELECTED 


- SECTION 7.1 GIVES A COMPLETE EXPLANATION OF SR OPTIONS. 


H. THE PROGRAM BEGINS EXECUTION. 

I. AT THE END OF EACH PASS THE TELETYPE BELL RINGS ONCE, AND 
THE CHARACTER "#" IS TYPED. 

J. REFER TO SECTION 6.2 IF ERROR PRINTOUTS OCCUR. 


EXECUTION TIME: 


ONE NORMAL ERROR FREE PASS TAKES APPROXIMATELY 36 MINUTES. 
8: ONE SINGLE ITERATION PASS (SR11=1) TAKES ABOUT 7 MINUTES. 
T 


HE SINGLE Pe ae ee 1S A CONVENIENT WAY TO QUICKLY 
DETERMINE IF ANY SOLID PROBLEMS exTS Bey A THOROUGH TEST, 
THE NORMAL ITERATION PASS SHOULD BE R 


Pe | RESTART PROD 


TO RESTART THE PROGRAM WITHOUT GENERATING THE INITIAL PRINTOUTS 
PROCEED AS FOLLOWS: (TRANSPORT UNDER TEST REMAINS THE SAME) 


A. LOAD eH 091000 

DO UNIT SETUP AS DESCRIBED IN STEPS A AND B OF USE PROCEDURE. 
Berec’ ony DESIRED OPTIONS. 

GO TO STEP H OF USE PROCEDURE. 


MOOow 
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PROGRAM AND/OR OPERATOR ACTION 


oe oe ST Shee. Peay 


THAT THE "PROC OCESSOR S Le 


aig na nao 


INSTRUCTION THAT GENERATED REQUEST. 


LOC 001764 ROUTINE END HALT. THES HALT OCCURS UPON COMPLETION 
OF THE CURRENT TEST ROUTINE IF SRIO IS SET. THE 
aes wee DISPLAY THE NUMBER OF THE TEST 


NORMAL PRINTOUTS 


Po us gf hh roe a L_PRINTOUTS. INSTRUCTION, 
AND USER ERROR PRINTOUTS ARE NORMAL PRINTOUTS. 


ERRORS ARE REPORTED IN THIS PROGRAM BY THE FOLLOWING METHODS: 


A. UNCONDITIONAL ERROR HAL 
8. ERROR PRINTOUT FOLLOWED mY SET IONAL ERROR HALT. 


UNCONDITIONAL ERROR HALTS 


AN UNCONDITIONAL ERROR HALT WILL OCCUR AT THE ADDRESSES LISTED 
BELOW IF THROUGH HARDWARE OR SOFTWARE FAILURE PROGRAM, CONTROL 
IS TRANSFERRED TO AN UNEXPECTED AREA BETWEEN OOO000 AND 000176. 
O00002 RESERVED AREA 

000006 

000012 RESERVED INSTRUCTION TRAP 

000016 TRAP 

000022 10 


p000e6 POWER FAIL TRAP | 
000040 THROUGH AOOI7E = SYSTEM SOFTWARE AND INTERRUPT VECTOR AREA, 
EXCEPT FOR TC11 AND TTY VECTORS. 


TO FIND OUT WHERE THE PROGRAM WAS AT THE TIME THE FAILURE OCCURRED, 


A. abe gt st 4 Bg? al p- TO The oh 177706). 
B. an ue LOAD ADDRESS AND EXAMINE. 


6: Tg bate IN PROGR n THe NG atte SER WS eee Tr PC TOGN THE PRILURE OCCURRED. ~ 
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6.2 
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(6.1 CONT'D) 
THE | INSTRUCTION THAT IMMEDIATELY PRECE $ THE ONE REFERENCED 


DE 
Byer aes D PC VALUE IS THE INSTRUCTION THAT WAS/ 
XECUTE HE FAILURE OCCURRED. 


5 ON nee ERROR HALT FAILURE IS AN oe CONDITION 


pelea RoGRAN ASSUMES ASSUMES Thal toe” P phoceSsoR 15 Ih OPERA RATIN ONDITTON IN 
STEPS REQU AGNOSE AN 


C 
ORDER TO PERFORM ITS TESTS. OTRED TQ 
AN BN UNCONDITIONAL ERROR HALT ARE NOT "WITHIN THE SCOPE OF T 


ERROR PRINTOUTS 





ERROR PRINTOUTS ARE GENERATED ya THE “ERRN” SUBROUTINE. THE 
“ERRN” SUBROUTINE IS CALLED BY AN "“ERRORN” STATEMENT IN THE 
PROGRAM LISTING. AN ERROR PRINTOUT LOOKS AS FOLLOWS: 


XXX PC OYYYYY ICNT 2222. UNIT W FPC OVVVVV 
UP TO @ ADDITIONAL LINES OF ERROR INFORMATION. 


USE 
HE S GENERATED BY 
TINE BNO TT Is cE + TO INDICATE WHERE 
HE SUBROUTINE OM. gs 


AFTER THE PRINTOUT IS COMPLETED, THE PROGRAM WILL HALT AT 
COMMON ERROR HALT AT LOC O02446 IF SRIS IS SET. 


WHEN AN ERROR PRINTOUT OCCURS: 


A. LOOK UP THE ADDRESS gti BY PC OYYYYY IN THE LISTING. 

B. OPPOSITE THE PC VALUE AN ERRORN ST pier WILL BE FOUND, AND 
IN THE COMMENTS SECTION, A DESCRIPTION OF THE ERROR. 

C. it L'BE FOUND. ING OF THE TEST ROUTINE A DESCRIPTION OF THE TEST 


UP TO 2 LINES OF ADDITIONAL ERROR INFORMATION MAY APPEAR ON AN ERROR 
PRINTOUT. SOME OF THE ITEMS THAT MAY APPEAR ARE: 


A. BLKRO. XXXX. BLKRQ REPRESENTS THE INITIAL BLOCK NUMBER USED WHEN 
AN OPERATION INITIATED. (IN A 2 OR BLOCK TRANSFER, BLKRQ 
REPRESENTS THE INITIAL BLOCK NUMBER. EVEN THOUGH A FAILURE MAY 

NOT HA URRED UNTIL A SUBSEQUENT 

B. IN A DATA ERROR PRINTOUT THE “WORD #° THAT FAILED REPRESENTS THE 
POSITION OF THE CORRECT WORD IN THE WRITE BUFFE Ir IS NOT 
MEANT TO DESCRIBE THE WORD’S POSITICN IN A DECTAPE BLOC 


ew. — - _. 


TOY - it TEST 4 
OZTCOC.P 


MACY11 &7(732) 


01 


O8-SEP-76 09:04 PAGE 6 


is MISCELLANEOUS 


7.1 SR OPTIONS 


THE STANDARD SR OPTIONS ARE DESCRIBED HERE. 


SR1S 


SR14 


SR13 


SR11 


SRid 


SRY 


HEL T AFTER ah ERROR OCeURS. PRESSIRG CONT” tt 
PROGRAM TO RESUME OPERA 


SCOPE. THIS OPTION CAUSES THE PROGRAM TO REMAIN IN THE 
CURRENT t EST ROU INE. WHEN THE OPTION. IS REMOVED, THE 
OMPLETE THE CURRENT ROUTINE, AND WILL THEN 
BO oN BN TO” 3 NEXT ROUTINE. 


INHIBIT ERROR PRINTOUT. THIS OPTION IF set, WILL REMOVE 
ALL ERROR PRINTOUTS. 


HeREANOTERHHAH 


SCOPE MODE OPERATION IS ACHIEVED BY LOCKING THE 
PROGRAM IN THE CURRENT ROUTINE, INHIBITING ERROR 
PRINTOUTS, AND BYPASSING ERROR HALTS. 


INHIBIT ITERATION. SETTING THIS OPTION WILL CAUSE THE 
PROGRAM TO EXECUTE EACH TES E. INSTEAD OF THE 

NORMAL NUMBER OF ITERATIONS SELEC TED FOR EACH TEST. 

TWO POSSIBLE USES OF THIS OPTION ARE: 


A. QUICK PASS. EACH TEST IS RUN ONLY ONCE. 
B. TO SKIP OVER A FAILING ROUTINE. 


HALT AT ENO OF CURRENT ROUTINE. WITH THE OPTION SE 
THE PROGRAM WILL HALT AT THE END OF EACH TEST 

N DATA LIGHTS THE NUMBER OF THE TEST JUST SOMPLETED. 
HREE POSSIBLE USES OF THIS OPTION ARE: 


I 
T 
- TO STEP THROUGH THE PROGRAM ONE ROUTINE AT A TIME. 
C 


ai "sIspLay 


Find THE How IF HAS uBeeh RUNN SaRESSED FOR A WHILE, TO 
IN CPSe. ate ha ieee ai THROUGH ONE T TEST 
AT AT FAIL THE ROUT 
FOLLOW i gous eho ROUTINE LOUL HOUL 

THE FAILING 

T ROUTINE. PROGRAM WILL GO AND 


Pe Ubath The MEI Seer he orto 
OCEED TO EXECUTE THE 
ABUT ines SOO LOHING. THE THE SELECTED ROUTINE. 


Ce ee 


TCY = TOl1 TEST 4 
OZTCOC.P1l 
7.2 
8. 
8.1 
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TESTING TC11 AT NON-STANDARD ADDRESSES AND/OR VECTORS 


fe al THOSE AUORESSES AND VECTORS BRE PROVIDED. 10 


AFTER LOADING PROGRAM REFER T Pagan bap the AND CHANGE 
tele ed ee ree UGH 001020 TO REF NEW TC1] 


8. IF THE TELETYPE IS ALSO AT_NON_ STANDARD ADORESSES, CHANGE 
LOCATIONS 601022 AND 001024 


PROCEED TO USE THE PROGRAM, OR 


USING STANDARD DUMP gdb ds DUMP I THE ENTIRE PROGRAM 
Sa nrevet on rena TO HAVE AN OBJECT 7.©E THAT REFLECTS 


E. DUMP OUT ONLY LOCATIONS 001004 THROUGH 001024 IN ABSOLUTE 
FORMAT, AND LOAD IT ALSO AFTER LOADING THE MAIN PROGRAM. 


DESCRIPTION 


THIS PROGRAM IS ORGANIZED INTO THREE MAIN SECTIONS: 


A. CONTROL ROUTINE, 
B. TEST ROUTINES 
C. COMMON SUBROUTINES 


CONTROL ROUTINE 


THE CONTROL ROUTINE ASSUMES CONTROL WHEN THE PROGRAM IS STARTED. 
IT HAS THE FOLLOWING FUNCTIONS: 


A. CONTROLS SEQUENCE OF TEST ROUTINES. 
B° HONORS AND ACTS ON SR OPTIONS. 


THE CONTROL ROUTINE IS CALLED FROM A TEST ROUTINE BY THE . 
“SCOPE” STATEMENT. 


T TC1l TEST 4 MACY11 27(732) O8-SEP-76 09:04 PAGE & 


- 


4 
T 


“wCc> 


rs 
Ss 


8.2 TEST ROUTINES 


HE ACTUAL TESTING IS PERFORMED T OF TEST ROUTINES THAT 


a MPEP (Oe aP dale Ta usED By. bee CONTROL 
(EXAMPLE) 


HROUGH THE TESTS. THE HEADE 
OOK “is "FOLLOWS: 


“Shgeroge pays Ves ereetenaee tt ogre eepeperrenzereerer ye 
ss RODRESE. OF RERT™ : 
S ROUTINE » 

10. :TEST ITERATION COUNT » 

COPE ENTRY POINT $ 
SEUARESAAEERERSERESERAESSENSSREDSSRAESSRDESESEESARESEREESEREESOS 


THE FIRST 2 ITEMS ARE SELF EXPLANATORY. THE TEST ITERATION COUNT 
INDICATES TO THE CONTROL ROUTINE THE NUMBER OF TIMES THE TEST 
SHOULD BE PERFORMED BEFORE GOING ON TO THE NEXT ROUTINE. 


THE SCOPE ENTRY POINT INDICATES TO THE CONTROL ROUTINE THE ADDRESS 
IT SHOULD RETURN TO AFTER THE FIRST ITERATION. THE ADDRESS MAY 
NOT NECCESARILY POINT TO THE FIRST INSTRUCTION OF THE TEST. 


@.3 COMMON SUBROUTINES 


ALL SUBROUTINES NEEDED BY 
ROUTINES ARE GROUPED TOGET 
IS THE “ERRr' “ SUBROUTINE, 
AND TYPES Th: TEST NUMBER 


NTROL ROUTINE OR TEST 

SIGNIFICANT SUBROUTI 
LED BY AN “ERRORN” STA 
A FAILURE OCCURS. 


EITHER THE CO 
HER. MOST 
WHICH IS CAL 
"AND PC 


NE 
S AT 
ALUE WHEN A 


T 
os 
’ EMENT 
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DZTCOC.Pil 
377 
378 
379 
380 
352 O00000 iH 
383 000002 
384 900004 900006 
385 poate 000000 
3? doodle 000000 
388 000014 002310 
389 000016 O00340 
aa 000020 oes 
32 000089 Ooubep 
3393 000026 000000 
394 000030 002110 
3395 00003e 000340 
396 000034 002755 
337 000036 000000 
398 
339 
400 177570 
401 177776 
402 ppt oan 
403 00024 
404 
4OS 100009 
406 100000 
407 040000 
408 020000 
409 010000 
410 0040 
411 0020 
412 001000 
413 000400 
414 000200 
415 000100 
416 0000 
417 00 
418 000010 
419 000004 
420 000002 
421 BADenH 
Yee 0000 
423 0001 
424 000002 
425 000003 
_ eb 000004 
~ 427 0005 
428 000006 
429 000007 
430 000007 
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TRCV: 
IOTV: 


EMTV: 
TRPY: 


.LIST SEQ, BIN, ME 
.NLIST MC,MD 
ABS 
ie, -UNASSIGNED TRAP 
: te -SP OVERFLOW, BUS. ERROR TRAP 
“fe : sRESERVED INSTRUCTION TRAP 
SvVSS s TRACE TRAP 
PRTY7 , 
RSSS - TRAP. TO CALL IOX 
PRTY7 fs 
fe -POWER FAIL TRAP 
EMTINT :EMT TRAP 
PRTY7 
Y TRAP TRAP. SIMILAR TO EMT 


PRTYO 
;LOC 40 THROUGH 376 ARE rae WITH .+2 AND HALT. 
s EQUATE enn iSpeD TS 


PSW=1 
SPB0T=1000 
NOP=240 é 


o- 
oOo 
oul 


MANUAL 
5 


| 


wa 
-— i) Vs 
S858 
58383 


Sore 
S 


0b tt tt Ht Coe 


: t 
—TU £ 
| 


UID? ICD. 
Moc 
oo 4 


HHH HH HH A Ht 


t—-4 4 4 0-4 O—-4 0-4 O—-4 4 04 0-4 0-4 4 4 04 8 
bas 
06 


DOWOMWOWMOVMWOOVOWOWOOwA 
= 
| ae | 
1 
— 


© 
1m 
[SS 
| a ) 


3 
000004 
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Ul=B1T8. 


U2=BIT 
U3=BIT9? BITS 


RNUM=BIT1 
RDATA=B1T2 


SssT= 
WRTIM=BITS!BIT1 
WOATASBIT3'BITe  - 
Sn) bhatt 


ILO=BITle 
SELE=BIT11 
EMTX=0 
SAVSS=3 
RSTSS=4 
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OZTCOC. P11 
uS7 4 DELAY=TRAP 
Roo . 02 00 
489 p09200 000167 001036 INF oo START :GO TO START OF PROGRAM. 
431 001000 167 oooss4 iH GETRDY : BYPASS INITIAL | PRINTOUTS. 
432 001904 177340 Test: 177340 s CII § STATUS RE 
at +4 . 
494 00101 t 44 TCWC: 177344 Teli i SF Heth, 
49S O0010le 177346 TCBA: 177346 -TC1l BUS AD 
496 001014 1 TCDT: 17735 :TC11 DATA RECTSTE 
497 901016 O00214 TCVTR: 2 -TC11 INTERRUPT VECTOR 
498 001020 900300 TCLVL: PRTY6 -TC11 INTERRUPT PRIORITY LEVEL. 
499 001022 177564 TPS: 177564 
S00 001024 177566 TPB: 177566 “LSP BUFFER 
S01 001 000000 ICTR: OPEN | “CONTAINS CURRENT ITERATION COUNT 
So2 001030 000000 ICNT: OPEN <CONTAINS ACCUMULATED ITERATION COUNT. 
$03 01036 DOG 44 KSTART: TO : <CONTAINS STARTING ROUTINE AD 
04 OO! SCOPTR: OPEN “CONTAINS CURRENT SCOPE POINTER. 
SoS 001036 000000 RTNNO: OPEN 
Sos 001040 o00000 ST: OPEN 
S07 001042 990009 « CURTST: OPEN 
Sos 001044 RA: OPEN 
S09 00104 O00000 TCCMT: N 
510 001050 o00000 TCSTT: OPEN 
S11 901052 000000 TCDOTT: OPEN 
Si2 001054 900000 TCWCT: OPEN 
513 001056 o00000 TCBAT: OPEN 
514 001060 oo0000 BLKRQ: OPEN 
SiS 001062 o00000 UNIT: OPEN 
Sié 001064 o00000 UNITN: OPEN 
S17 001066 000000 UNITS: OPEN 
518 001070 o00000 COMND: OPEN 
S19 001072 TEMP: 
S20 001074 oo0000 FPC: OPEN 
S21 001076 (PBG: OPEN 
S22 001100 000 LP8T: OPEN 
S23 001102 o00000 LPB: OPEN 
S24 001104 Oo00000 ELPB: OPEN 
S2S 001106 ERRLIM: 
S26 001110 000310 BLKNUM: 
S27 O0llle ALLPAR: OPEN 
Sos 901114 EMTTAB: 
S29 001114 001674 .WORD CHAINN sPOINTER FOR EMT CALL SCOPE 
S30 OO1116 OO02404 .WORD SRSETT :POINTER FOR EMT CALL SRESET 
S31 01120 002130 .WORD SVO3 -POINTER FOR EMT CALL SAVO3 
S32 OOllee 002230 WORD RSO3 -POINTER FOR EMT CALL RSTO3 
S33 001124 o0e160 WORD  svO0S -POINTER FOR EMT CALL SAVOS 
S34 001126 002260 ft sos -POINTER FOR EMT CALL RSTOS 
535 001130 o0e1S0 WORD  svOSS ;POINTER FOR EMT CALL SAVOSS 
S36 001132 002254 W soss OINTER FOR EN I CALL RSTOSS 
537 001134 WORD *POINTER FOR EMT CALL TYPE 
538 001136 o0e4Se2 .WORD  ERRN :POINTER FOR NT CALL ERRORN 
539 001140 003106 .WORD OACNVV -POINTER FOR EMT CALL OACNV - 
S4O O0il4e 603200 .WORD BDCNYV sPOINTER FOR EMT CALL BDCNV 
541 OO1144 O03156 . WORD ‘POINTER FOR EMT CALL BMOVE 
S42 001146 00 .WORD  CHLT *POINTER FOR EMT CALL CHALT 


MO1 
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OZTCOC.P11 
S43 901150 002440 + WORD EMT ya all POR EMT CALL EMAL + a 
ne a “ ° 
4 Botled oS3e0 WORD STCOM Oth NER FOR a est t serch 
S4S 001156 003310 WORD STATS . 
S47 001160 4 WORD STPDOT | i POINT , FOR a kart STOP 
Sus 001162 o034S4 . WORD CKERZ 7 : POIN TER FOR EMT CALL CKERRZ 
S48 001164 4 | .WORD  NOINTR “POINTER FOR EMT CALL NOINT 
220 001156 opi st4 WORD SRCHFF ‘POINTER FOR EMT CALL SRCHF 
ssi 1170 O04 .WORD  SRCHRR “POINTER FOR EMT CALL SRCHR 
Se. 001176 902010 WORD WDATF “POINTER FOR EMT CALL WOATAF 
i -OOLL9 ‘WORD RDATE POINTER FOR ENT CALL RDATAF 
‘OL - : 
Ped bt Sa8 “HORD ATR POINTER ae aH kare TAR 
SS& 001202 OOSO&4 WORD RDTFSS *POINTER FOR EMT 
SS7 001204 oO04e44 . WORD Q sPOINTER FOR EMT CALL CKWCBA 
SS8 001206 .WORD CLEARR *POINTER FOR EMT CALL CLEAR 
eg 001219 21 WO BINFLL iPOINT FOR ENT CALL BINFIL 
S60 O0lel 364 . WOR ATCK -POINTER FOR EMT CALL DATCHK 
S61 001214 32 WORD OTCKI ‘POINTER FOR EMT CALL DATCKI 
abe 001216 003616 WORD ADATCK -POINTER FOR EMT: CALL ADTCK 
S 1220 003606 WORD ADATCI ‘POINTER FOR EMT CALL ADTCKI 
S64 OOle2e 003010 WORD INN - POINTER EMT N 
S6S 001224 o0304e WORD GTBINI sPOINTER FOR EMT CALL GETBN 
S65 001226 110 WORD LFF ‘POINTER FOR EMT CALL WALL 
S67 001230 WORD WALLRR sPOINTER FOR EMT CALL WHLLR 
68 O0le S264 WO RALLFF sPOINTER FOR ENT CALL RALLF 
69 001234 O05 WO RALLRR *POINTER FOR EMT CALL RALLR 
S70 001236 Oo6S560 -WORD SQDRV :POINTER FOR EMT CALL SEQDRV 
S71 o012e40 O06&02 .WORD SELORR -POINTER FOR EMT CALL SELDRY 


—— ———— Cie om = - ee - -_ 
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36 

74 OO0l1e42 
575 001246 
S a 

3 Boise 
579 O0lebe 
BB] 001264 
S82 O0le7e 
583 001300 
S84 001304 
S8S 001310 
= on iaie 

ae 

83 Obl 322 
S89 001324 
590 001326 
S31 001330 
S32 001332 
S93 001336 
S94 001346 
S95 001344 
S96 001346 
S97 001354 
S98 001362 
S39 001364 
600 001366 
601 001370 
602 001376 
603 001400 
604 001404 
60S 001406 
606 001410 
607 O014le 
608 001414 
609 001420 
pie pete 

11 14 
ble 001426 
613 001430 
614 OCi436 
615 001440 
616 OO1444 
617 0014Se2 
618 001454 
619 OO1456 
620 001460 
bel O01466 
bee 001474 
623 001476 
624 001500 
beS 001502 
626 001506 
be7 001514 
628 O01516 


012706 
00 


————— am —_——.—— oe 
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001000 
177564 


177440 


011276 
177777 


100200 
077402 


177446 


014000 
177654 


006634 


000001 
000007 


177356 
011254 


001336 
177566 


o0000e2 


77436 
77426 


gs fF -~ 


177410 


177346 


177414 


000010 
177350 


007535 
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START: MOV #SPBOT,R6 sSET BOTTOM OF SP STACK. 
CLR RTNNO 
TYPE ;TYPE TITLE. 
rat ane gPROGRAN | LOADED VIA MONITOR? 
*ROUTINE TO DETER NE TRANSPORTS ave LE FOR 
MOV aie J yeAB F-FOR FEF NtO UTS. 
MOVB DRIVES 1-7 AVAILABLE 
MOV BSS UP TO TEST 8 TIMES. 
DTRMN: INC ie af V1 
BIC #177770, SQDRV1 
sonal SELDRV PELLET 0 TAMSPORT. 
BR OTRMNA UNIT NOT AVAILABLE RETURN. 
SETCOM *REWIND TO REVERSE END ZONE. 
BR OTRMNB ERROR RETURN. 
TST TCCM : WAIT. 
BPL <4 
TST JTCST sEND ZONE? 
BPL DTRMNB ‘BR IF NOT. 
MOV #WBUFO,3TCBA § ;SET CURRENT ADDR. 
MOV #-1, JTCWC SET WORD COUN 
SETCOM YES. ISSUE UNITE DATA COMMAND. 
WDATA+FUD+D0 
BR OTRMNB “ERROR RETURN. 
BIT aBITIS+B1T7, , aTCCA -WAIT FOR ERROR/READY. 
TST - aTCCM s ERROR? 
BMI DTRMNB -BR IF YES. 
DTRMNA: STOPDT :STOP DECTAPE. 
DEC RO -DONE 8 TIMES? 
BNE DTRMN -BR IF NOT. 
TSTB —*UNITS -ANY UNITS AVAILABLE? 
BNE OTRMNC , 
TYPE -TYPE NON AVAILABLE tESSAGE. 
NOUNIT 
BR CHNC GO EXIT. 
DTRMNB: BIT #BIT12+BIT11, aTcat -TLO OR SELE ERROR? 
BEQ TRMNA BR IF NOT. 
MOV SQDRV1.R1 
BICE ae UNITS ;DESELECT NON AVAILABLE TRANSPORT. 
DTRMNC: TYPE -TYPE UNITS TO BE TESTED. 
MOV , CPENA 
nov "CTRA HECK UR UP TO 7 UNITS. 
CPENA: OPEN ONTT To Be. SELECTED. 
BR . CPENB INE NOT AVAILABLE. 
MOV __-: UNITN, RO cess. 
MOVE  GTAB(O),GTAPES GET eeeir # FOR GOOD T 
TYPE ‘TYPE # OF UNIT TO ect 
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B80085 
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oe 
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176022 


27 (732) 


177316 


001042 


i75734 


17S716 
177156 


175646 


175630 


17S6le 


175574 
177034 
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CPENB: INC a 
DEC 
SPeNa2 
STRTA: TYPE 
INST 
CHAL 
MOVE = SR, UN: TS 
REQ STATA 
ire 
ASETSR 
CHALT 
GETRDY: MOV #1002 ERRND 
MOV KSTORt, NXTST 
GTRDYX: MOV SPRTY? *PSW 
NOV : eSPBOT.R6 
INBIN 
CLR ALLPAR 
SVECTR 
GTRDYA: JSR R?. FORWD 
GTRDYB: gir se1T3, SR 
GORUN: SEQORV 
JMP SCURTST 
GTRDYC: NPE RTNNO. 
GTRDYD: CMP 8-1 NXTST 
BNE GTRDYA 
AINCRT 
CHALT 
GETRDY 
CHAINN: STOPDT 
MOV eSPSOT, Rb 
INC ICNT 
BNE CHNAC 
COM ICNT 
CHNAC: SIT sBIT14,SR 
BEQ CHNA 
CHNAB: SEQDRV 
one: FY HERTS 
BNE CHNRA” 
DEC ICTR 
BNE CHNAB 
CHNAA: BIT #BIT10,SR 
MOV RTNNO, RO 
CHNB aT BITS. SR 
: g 
UMP 8-1 NXTST 
BNE GTROYX 
TYPE 


PRESET DT INTERRUPT VECT 


sUPDATE TO NEXT DRIVE. 
; CHECKED a ORIVES? 
:BR IF N 


TYPE UNIT SELECT INSTRUCTZONS. 


sWALT FOR USER. 
UNITS. 
BR IF _ NON SELECTED. 
;TYPE SR OPTION MESSAGE. . 


;COMMON HALT. 
; ENABLE ERROR PRINTOUTS. 


sROOR OF Ast F TINE TO NXTST 


SET BOTTOM OF STACK. 


3155 
ALIZE BINARY COUNT. 


:CLEAR PARITY ERROR ALLOL ad Naa 


FORWARD TO “NEXT” tM INE. 


ie 
SR. 


NE FOUND. 
CHECK FOR LAST ROUTINE. 
: BRANCH IF NOT LAST ROUTINE. 
;TYPE INCORRECT RTN SELECTED. 


3 ore \* 

»STAR OVER. 

RESTORE STACK. 

s INCREMENT ITERATION COUNT. 
BR IF RESULT NOT QO. 

sRESULT 0. RESET ICNT TO -1. 
sCHECK FOR SCOPE OPTION. 

sBRANCH IF SCOPE SW NOT SET. 
>SELECT SEQUENTIAL DRIVE. 
*RETURN TO ROUTINE. 

- TEST eg f TEBAT ION Fin § 
;BRANCH IF INHISIT I ar gon SW SET 
sDECREMENT ITERATION C 

BRANCH IF COUNT NOT "ge: 

ROUTINE END HALT SW SET? (SRI1O) 
3 BRANCH iF per SET. 

-TEST -#8 TO R 

sROUTINE ENO HALT. TEST # IN LIGHTS. 
3 EECA bs ia T ROUTINE SuTT CH 

. 7 LECT RTN SW SET 
“LAST TEST? 


;SRANCH IF NOT LAST TEST. 
:TYPE PROGRAM END BELL. 


See SWITCH IS SET. 


o~4 
~ 


T, 
£ 


BRODER 
— 


stot 


POOP OOM OMDN 
BB IPA Luteo 


SESRR BREE 


Bees 88 BBaR BRBRaS B 


le. 
WONOUI WTO 


Ss: 


T 


“wc? 
ope 
Ce 


OSS FS F528 BRBERS RBS 


OOO0OD0MIO00O 
o— bb 0 b= = 


gabe oa tn 
Mscrao 


Se 
SF 


Oee4e 


20 
BS 
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ee 
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-o 
“NM ul 
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O0004%e - 


177766 


000240 


o00046 
000036 


000026 


08-SEP-76 09:04 PAGE 1S 
APGEND 
CHNC: MOV a2, RO :GET CONTENTS OF 42 
BEcer ‘NOT O. ISSUE RESET 
LOGIC: JSR (0) -RETURN TO MONITOR 
RD NOP.NOP,NOP | 
Is B UNITS : ANY 17s AVAILABLE FOR TESTING? 
HERE BR as Y + i BAT PR 
FORWD: MOV sere RS BBR NEXT. ROUTINE TO RS. 
7 MOV (5)+, RTNNO *GET NEXT ROUTINE NUMBER. 
MOV (5)4) NXTST : GET ROOK OF NEXT “NEXT” ROUTINE. 
MOV he CT GET I ERAT! COUNT. 
MOV (5)4’SCopTR -GET SCOPE LOOP ENTRY POINTER. 
FORHDA: MOV RS, CURTST :ADDR OF NOW CURRENT TEST TO CURTST. 
MOV a] ICNT ‘PRESET ICNT TO 1. 3 
MOV RTNNO, SR -DISPLAY ROUTINE &. 
RTS “EXIT FORWD SUBROUTINE. 
-EMT INTERPRETER ROUTINE. 
EMTINT: MOV RO. -(6) :PUSH RO. 
2(6),R0 <GET EMT PC. 
MO -(0),R0 GET EMT CALL. 
ASL RO -TIMES 2. 
MOV EMTTAB-10000(0),R0 -FORM EMT ADDR. 


RTS 
-SAVE REGS 0 TO 3 SUBROUTINE. 
s MOV (§ 


-GO TO EMT RTN. RESTORE RO. 


—$v03 )+,-10.(6)  ;MOVE PC UPSTACK. 
MO )+-10.(6) | :MOVE STATUS UPSTACK. 
HOV aR svos¢c 
-SUB TO SAVE REGS 0 TO S AND PLACE EMT PC IN RS. 
SvOSS: MOV andP SVOSC 
-SUB TO SAVE REGS O TO S. 
SvOS: MOV #RTI,SVOSC 
SVOSA: MOV (6)+,.-14.(6) | sMOVE PC AND PSW UPSTACK. 
: MOV (6)4,-]4, (6) 
: MOV RS,-(6) 
MOV RY’ -(6) 
SVOSB: MOV R3,-(6) 
MOV Re, -(6) 
MOV RI: -(6) 
MOV RO;-(6) . 
PUSH2 
svosc: RTI :RTI OR NOP. 
MOV 16. (6),R5 “EMT PC TO RS. 
MOV RS. RY 
TST ~(4) pee 
Rt  sEXIT. 
‘RESTORE REGS O TO 3 SUBROUTINE. 
RSO3:  POPSPe 
MOY (6)+,RO *RESTORE REGS O TO 4. 
MOV (6)+,R1 
MOV (9). : 
MOV (6)+.R 
MOV -10.(6),-(6) | ;MOVE PC AND PSW DOWN STACK. 


TCY - 
D2TCDC 
741 


742 
743 
4 


PEPER TT ner SRSA EPAAS ROT cee Geen TI ETEPEETE: 


Hy 


002246 
O02eSe 


00eeS4 


002 





4 


016545 


STRESS | 


MACYL1 e7(732) 


177766 


000020 


175124 


sROUTINE TO 
SAVOSS 
MOV 


08-SEP-76 


MOV 


RSOS 


SVSS: MOV 


RSSS: MOV 


STTCV: 


MOV 
MOV 


RSTOSS 


09:04 PAGE 16 
-10.(6),-(6) 
-SUB TO SE RS IN EMT PC AND RESTOR 
RSOSS: MOV RS. 16. S 
TO RESTORE REGS O TO S. 

:  POPSP2 


(6)+,R0 


| i ne te te ce 


+. RS 
-6(6),=(6) 
-6(6).-(6) 


EXIT. 
REGS 0 TOS 
.SE ER? pe TO RS CONTENTS. 


;sMOVE PC AND PSW DOWNSTACK. 


sEXIT. 
;PC AND PSW UPSTACK. 


-SAVE RS. 
SAVE R4. 


-EMT PC TO RS. 
SEMT PC TO Ri. 


sEXIT EMT SUS. 
-RS TO EMT PC. 


;RESTORE RY. 
;RESTORE RS. 


EXIT. 
TC11 INTERRUPT VECTOR AND PRIORITY 


TCVTR,R1 


sROUTINE TU ISSUE RESET. 


SRSETT: MOV 
MOV 


COM 
MOV 


RESET 


MOV 
CHL 


é ST 


BPL 
HALT 


RO, -(6) 


#52525, RO 
. RO,SRSETT+4 


(6)+,RO 


Lon HALT ROUTINE 
"MOV 
HAL T 
ass 
*CONDITIONAL ERROR HALT ROUTINE. 
HLT: T SR 


RY, RO 


EHLTA 


;VECTOR TO Rl. 
;SET DESIRED VECTOR. 


sSET TC1l PRIORITY. 


:PUSH RO. 

sDATA TO RO. 
sCOMPLEMENT (RQ). 
(RO) TO SRSETT+4. 
ISSUE RESET. (RO) IS 
sRESTORE RQ. 
sDISPLAYED. EXIT. 


sDEVELOP ADOR OF CALLER. 

"HALT CALL ADDR IN DATA LIGTHS. 
sEXIT. aa 
sCHECK FOR HALT ON ERROR. 

foie aa IF NO HALT DESIRED. 
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sgn bare LIGHTS. 
:CONVERT CALL ADOR OF SUB CALLING. 


» SAV GS 
BE TERNINE 2ALLING ADDR. 
sCONVERT CALLING ADDR TO ASCII. 


Banas 000130 
;CONVERT TEST # TO ASCII. 

;CONVERT ICNT TO DECIMAL ASCII. 
;CONVERT UNIT NUMBER TO ASCIT. 
;CONVERT BLKR@ TO ASCII. 

;sCONVERT TCST TQ ASCIT. 

s CONVERT TCCM TO ASCII. 

;CONVERT TCWC TC ASCIT. 

;CONVERT TCBA TO ASCII. 

Aviat] ERR PRINT? IF NOT INHIBITED. 


MSG ADDR GOES HERE. 
OF NEXT MSG. 


B2p800 1 a7 ERRNA: 
ERRND: 


7777e : 

77777 ~=177764 s TERMINATOR? 

' shite O5 TYPE TF NOT TERMINATOR. 
MSGS. HAL 

sRESTORE REG SS. 


Lg 
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TCDC.P1l | 
853 O0c6S6 o00002 , RIT -EXIT EMT SUB. 
354 io $ {SUBROUTINE TO OUTPUT ASCII MESSAGE ON TELETYPE PRINTER. 
1258 | MOV (5)+,RO SSAGE TO RO. 
a3: Stee 112001 TYPA: MOVB (0)4:R1 i OET ERBRACTER 
i Sacoeete ie rig, feu lr, 
B60 74 3 J Rice R TYPO : 
~ 
962 so00de2 TI ; TERMINATOR SHAR. DONE. EXIT. 
863 002704. 122701 op004s TYPC: chee avs RI ; CHECK K FOR" 
go4 008710 141 Q TYPF H 
le 004767 o00002 JSR R7, TYPD : TYPE CHAR tN RI 
BPS pees rita 176 TYPD A TYPR oe PYT C R 10 PRINTER 
Basesy theses tSEnos Toye TPS TT FOR ONE FLAG 
869 002730 100375 BPL <4 
870 002732 RTS R7 . XIT 
871 002734 112701 900015 TYPF:  MOVB #15 RL ing /GBPRIAGE RETURN CODE TO R1 
B75 poses Tis7Bi Boobie ee: BOBO sit i KODE’ TO RI. 
He Basser iiSoE? beac : JSR Hep nove LF OOF 
875 002754 000743: BR 
876 . : SUBROUTINE TO DELAY. 
Bee YRO=DLY+4 
78 YRI=DLYA+4 
879 002756 012727 011610 OO0000 OLY:  # MOV 9 
ego bd276s 812727 001750 000000 DL va: MOV #1000. ; #0 ‘DELAY COUNT TO DLYRI. 
881 MRC 177772 ‘DLYB: ' DEC DLYRI *DLYRI -1. 
882 002776 0013 ENE OLY 
883 003000 005367 177756 DEC OL :DEC DLYRO. 
884 003004 001367 7 DLYA 
885 003006 RT SEX! 
B85 «SUBROUTINE TO INITIALIZE BINARY BUNT PATTERNS 
887 003010 012767 177777 oOC0016 {NBINN: MOV #-1 RIND | sSET ALL VARIABLES 
888 003016 16767 O0001e 990912 MOV RIND, PTO 
B89 003024 616767 MOV “RIN; TI : 
890 003032 900002 RTI EXIT. 
851 093034 0o00000 RIND: OPEN 
892 903036 o00N00 PTO: OPEN 
893 003040 900000 PT1: OPEN 
394 “5 SPECIAL BINARY COUNT PATTERN SUBROUTINE 
895 003042 016767 177770 177770 GTBINI: MOV PTO, PTI -PREVIOUS BIN CHAR TO PTI 
896 003050 005167 177764 COM 
897 903054 005167 177754 COM RIND 
g98 003060 001002 NE +6 
899 003062 005267 177 INC PTI 
900 003066 016767 177746 177742 MOV PT1,PTO -SAVE BIN CHAR IN PTO 
901 003074 , SAVSS 7 
902 O16 177736 MOV PT1,(S)+ : 
803 003102 000004 RSTSS 
904 003104 o00002 TI 
gos -EMT SUB TO CONVERT OCTAL TO escif 
806 003106 104006 bACNVY: SAVOSS Ay 
907 003110 013500 a(5)+ RO -GET OCTAL VALUE. 
308 903112 01250) MOV (5)+,R1 :GET DESTINATION ADDR. 


TCY = TC1l TEST 4 MACYL1.27(732) 08-SEP-76 09:04~PAGE 19 
pzTcDc.P11 


003114" 





309 012502 MOV (S)+,R2 :GET CONVERT COUNT. 
$10 003116. 060201 eee ADD Re, Rl ‘DEVELOP ADOR TO STORE 1ST CHAR. 
a8 4 
HE aie? Biers 177770 Bye 0953 70.R3 -ISOLATE LEAST SIGNIFICANT DIGIT. 
ia oy ! vB oe a) peal RASCIT CHARACTER. 
ais Gt 270) cooo07 a 
] 903140 | 
aig deals m § 
ate 146 00530¢ DEC R2 sone AL DIGITS? 
139 001363 : OACNVA H IF NOT DONE. 
eel 15¢ 194007 sToss ; gRESTORE REGS. 
$23 -EMT SUB. 10 MOVE VARIABLE NUMBER’ OF BYTES, 
003156 104006 BHOW: Voss 
$25 003160 012501 Rove (S)+,R1 - : GET“FROM™ ADDRESS 
826 003162 612502 MOV (2) 3° Re : GET“ TO" ADDRESS 
927 164 012503 . MOV (5)+'R3 : GET COUNT 
928 166 llelee BMOVA: MOVB (1)+4,(2)4 :MOVE BYTE 
$29 170 005303 DEC R3 “DECREMENT COUNT 
330 003172 001375 BNE BMOVA *BRANCH IF NOT DONE 
1 003174 104007 RSTOSS ~ ;RES TORE REGS. 
932 003176 TI EXIT. 
933 :EMT SUB TO CONVERT BINARY TO pet AC] ASCII. 
824 9003200 104006 EDCNVV: SAVOSS 
ase 13300 0033¢ | NOV SoECV io cer eine CVAL TO RO. 
937 Bpasi0 bi 702 ies : MOV ape cvAL » RO 1RDOR, OF DECAL T TO Re. 
938 003214 O1 000005 MOV #5:R3 - SET uP FOR & CONVERSIONS. 
a3 fee the BoM: ey HREM hos vee 
941 MRED ec BCS BOCAVC ‘BR IF CESSFUL 
942 003226 o005204 INC ::1 TO RESULT. 
943 903530 900774 BR 9c! =O IT AGAIN, 
Q44 32 061201 : BOCNVC: ADD (2),R1 RESTORE SUBTRACTED VALUE 
94s 34 04 . 000060 ~~ ROD 60'R4 CONVERT RESULT TO ASCII. 
S65 003240 10420 MOVB «RY. (0) >STORE RESULT. 
947 2 722 TST (25+ :UPDATE 10 POWER ADDR 
948 903244 005303 DEC -DONE 5 TIMES? 
Quy DO3e46 001.364 BNE. -BR IF NOT. 
g50 012501. MOV (5)+,R1 ;GET ADDR TO STORE ASCII. 
951 003252 012502 MOV Re -GET ® OF DIGITS REQUIRED. 
952 003254 069201 ADD R2.R ‘eTART WITH LSD. : 
953 003256 114041 BOCNVD: MOVB -(0),-(1) ; TRANSFER CHARACTER. 
964 003260 005302 DEC R 
=: ten tae Boss OE thes 
Et 34 TENPWR 0000 EXIT. 
ge3 posere | O01760 1000. 
360 003274 900144 100. 
Ee 653508 000001 
003302 040 040 O40 DECVAL: .BYTE 040,040,040,040,040, 040 
964 003305 040 0 040 
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TcDC. 
365 a: arvne ceed i itis f0 SAVE ret. lost, TCDT, TCWC TCA. 
se) nie GLTTer raz i7eee STS: tay areata Lee fea 
963 17767 175460 175522 MOV aT TCWCT TCWC. 
969 003232 017767 175456 175Sle MOV JTCOT. TCOTT TCDT. 
$70 ? 175446 175510 V aTCBA, TCBAT TCBA. 
363 MT sue T ISSUE or. COMMAND spebiry et ease. 
se 003350 905067 175514 : éTcom: CL 4 CLEAR PREVIOUS COMMAND 
975 meee Bese eS eae 1PeeRR ts 0: Con iNT DESIRED COM COMMAND IN COMND. 
976 916777 175474 175410 MOV :TSSUE COMMAND. 
$22 p37 100200 175402 T COM ietett?, aTccm -READY AND ERROR BIT CLEAR? 
78 1414 Q sTc -BR'IF YES. 
$79 003406 7 900001 1754S4 BIT #8170, COMND :WAS THE DO BIT SET IN COMND? 
980 003414 001410 : STCOMB -BR IF NOT. 
981 003416 SAV 
982 903420 10402] STATUS -SAVE STATUS. 
983 22 104011 E -ERROR. DO BIT FAILED TO CAUSE CLEARING 
9a4 4 O11 FPCMSG 
98S 003426 C1110S © STCMSG :OF READY AND/OR ERROR BIT(S). OR ILO 
986 003436 010634 STAT *BLOCK MISS, OR DATA MISS ERROR OCCURRED. 
987 003432 177777 =| 
988 003434 04000 SCOPE 
989 003436 32716 000002 STCOMB: ADD #2, (6) :SET UP RETURN. 
990 o0344e d00002 -EXIT STCOM SUB. 
991 -EMT SUB TO STOP ALL DECTAPES. 
a6 pose 042777 000116 175334 STPDT: BIC #116, aTCCM s ISSUE SAT COMMAND. 
000002 “EXIT EMT SUB. 
994 -EMT SUB TO CHECK FOR DECTAPE ERROR OR END ZONE. 
995 003454 000003 CKERZ: SAVSS 
99% 003456 005777 175324 TST aTCCM -ERROR BIT SET? 
997 0032462 100406 BMI CKERZC : BR 
998 003464 005725 TST (5) iNO. SET UP OK EXIT. 
993 005725 CKERZA: TST (5)+ 
1990 000004 CKERZB: RSTSS 
- 1001 605067 175414 CLR ALLPAR _ sCLEAR PARITY ERR ALLOWED INDICATOR. 
1902 003476 9000002 . . RTI sEXIT EMT SUB. 
1003 aes 005727 175300 CKERZC: TST aTCST -ENDZ BIT SET? 
1004 O03504 i BMI KERZA -BR IF YES; 
1005 905767 175400 TST LPAR sPARITY ERR ALLOWED? 
1906 12 001404 BEQ CKERZD ‘PARITY ERR NOT ALLOWED 
1007 14 040000 175262 _ BIT SBITI4,aTCST PARITY E T? 
1008 003522 001360 BNE CKERZA-2 -BR IF YES 
1009 0032524 104021 CKERZD: STATUS _ 
1010 0032526 104011 ERRORN sDECTAPE ERROR 
1011 903530 O11 FPCMSG 
1012 003532 010704 TERR 
1013 003534 010634 TAT 
1014 010715 
1015 : 003540 177777 - 
1016 OC3S42 000752 ~ KERZB 
1017 T guB_ 10. a HANOLE FAILURE TO INTERRUPT. 
1018 003544 oo0003 9003 ABINT ol arin 
(p28 posee8 1O4OIT statis tBECTABE FAIL TO INTERRUPT. 


TCY = TC1l TEST 4 
OZTCOC.P1l 


1021 
1022 
1023 


SISSIES RE RRR R RR URE MARS tea e eee eae RRO ERE BED IO 


= 


003$Se 
003554 
903556 


003565 
Doser 
003600 
003602 
0G3604 
003605 
003606 
0036i4 
003616 
003630 
0036 
003642 
003646 
003652 
003654 
003656 
003660 
003664 
003670 
003672 
003676 
003704 
003712 
003716 
003732 
003736 
003740 
003744 
003750 
003756 
003764 
003772 
003774 
004002 
004004 
004010 
004012 
14 
004024 
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FPCMSG 
INTFAI 
STAT 


as 


ba 
ERRCTR: N 
WRDCNT: N 
BEXPDT: N 
EXPDAT: N 
BACTOT: OPEN 
ACTDAT: OPEN 
CKINDA: .BYTE OPEN 
CKINDB: .BYTE OPEN 
177777 177770 ADATCI: MOVB #-1,CKINOA 
BR apatcK+4 
177762 ADATCK: CLRB I 
177777 177755 nOVE #-1,CKINOB 
177777 177744 DTCKI: MOVB -1 CKINDA 
oR patek+4 
177736 DATCK: CLRB I 
177733 CLRB CKINDB 
DATCKK: SAVOSS 
MOV (5)+,RO 
MOV (5)+ Ri 
177721 TSTB CK INDE 
BEQ DATCK 
MOV (5)+,Re 
MOV (5}+;R3 
177674 DATCKA: MOV (5)+°WROCNT 
000001 177662 MOV 81. DATKNT: 
175176 177656 es ie ERRLIM, ERRCTR 
177656 DATCKB: CLR BEXPDT: 
177656 CLR BACTOT 
177650 MOV (0) ,EXPDAT 
177650 MOV (1) ACTDAT 
177647 TSTB = CK IADB 
BEQ DATCKC - 
177630 MOVB (2), POT 
177630. MOVB (3) :BACTDT 
177774 177616 BIC #177774, BEXPDT 
177774 177614 BIC #177774 BACTOT 
177606 177610 DATCKC: CMP EXPDAT, ACTDA 
BNE DATCKD 
177574 177576 CHP EXPDT, BACTDT 
DATCKD: BDCNV 
DATKNT 
RUDCN 
177556 ROL EXPDAT 
177550 ROL BEXPDT 
177546 ROR EXPDAT 


————— oe eee - e -” 


EXIT 
-EMT SUB TO CHECK EXPECTED DATA AGAINST 
TKNT: OPEN | 


EMT SUB. : 
ACTUAL DATA AND REPORT ERRORS. 


; CUR une ‘ 
ERROR COUNTER. 
-% WORDS O CHECK. 


R/DECR INDICATOR. 

18 BIT DATA INDICATOR 

ICATE DECREMENT OF ACT DATA. 
I 

I 


re 
: CATE INCREMENT OF ACT DATA. 
: CATE 18 BIT DATA CHECK. 


; INDICATE DECREMENT OF ACT DATA. 


s INDICATE INCREMENT OF ACT DATA. 
; INDICATE 16 BIT DATA CHECK. 


I 
l 
B | 
I 
I 


65 S°S 


r 0 CHECK. 
CURRENT WORD # TO 1. 
L TO ERROR COUNTER. 


a 
IN BEXPDT AND 


;SET UP DATA FOR CONVERSION AND TYPEOUT. 


TCY = TC11 TEST 4 

OZTCDC.P11 
1077 004030 006167 
1078 OO4034 006167 
i Beate Aol 
I 
182 004080 011035 
1083 0040S 0000) 
ites Goose 02876 
1086 011036 
bse owed 104018 
1089 004065 003600 
1930 004070 011051 
i882 Oowbed TOOL 
1093 004076 003602 
1984 904109 011052 
108% GO4109 104011 
1097 004106 01i207 
1098 OO411G O10715 
1033 OO4te O11008 
1100 OO41i4 177777 
1101 004116 005367 
1102 OO4122 001423 
Hee BRIS tse 
Hibs GONIS4 001406 
1106 004136 105767 
1107 oo4i42 001401 
1108 OO4144 122243 
1109 O04146 22041 
1110 004150 O00405 
1111 004152 105767 
1112 004156 001401 
1113 OO4160 122223 
1114 O04162 Oe202l 
1115 Oo4ig4 ? 
Hig O04 1 
I1l 172 104007 
1118 004174 
1119 
1120 004176 104006 
1121 004200 012500 
1122 o04202 012501 
1123 04204 005020 
1124 004206 005301 
1125 O04210 001375 
1126 OO4212 104007 
1127 oo4214 
1128 
1129 O04216 1040 
1130 O04220 01250 
1131 O04222 012501 
1132 04224 104044 


ee 
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177446 


177436 


177450 
177443 


177427 


177402 


02 
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ROL ACTDAT 
ROL BACTDT 
ROR ACTDAT 
ACNV -CONVERT BEXP DATA TO ASCII. 
BEXPDT 
ROATSB 
ACNV sCONVERT EXP DATA TO ASCII. 
XPDAT 
ADATSB¢+ } 
BAcNy -CONVERT BACT DATA TO ASCII. 
BACTDT 
ADATWS 
bacny sCONVERT ACT DATA TO ASCII. 
TDAT 
ADATWS+1 
RRORN : TYPE DATA ERROR MESSAGE. 
FPCMSG 
BLKSB 
DATERR 
DEC ERRCT ;NTH ERROR? 
| .. BEQ DATCKH YES. 
DATCKE: INC DATKNT t INCREMENT WORD # 
TSTB cK! : INCR/DECR? 
BEQ ATCKF BR TO INCR. 
TSTS =s._s« CK 
BEQ +4 
CMPB ss (2) +, = 3) s INCR-DECR DATA ADDRESSES. 
CMP (0)+; (1) 
ae DATCKG 
DATCKF: ISTe CKINDB 
CMPBsé(2+) + (3+ - INCR-INCR DATA ADDRESSES. 
DATCKG: sre Re tare CHECKING? 
BATCKE Be IF NOT 
DATCKH: RSTOSS 
“EMT. SUB 10 TO nkEAR SPECIFIED AREA ea 0’S. 
eLEAR 
ao (5)+,RO 


sGET STARTING ADDR. 
OUNT. 

CLEAR WORD. 

BR : NOT DONE. 


MOV (5+, R} 
ays i 


a 
Boss 


XIT. 
jENT sue 10 FILL GREA WITH coaall COUNT PATTERN. 
: GET STARTING ADDR. 


MOV (e) RO 
;GET BINARY WORD. 


MOV 
BINFLA: GETEN1 


TCY = TC1l TEST 4 


OZTCOC.P1 


1133 


Y 


b> b= 2 = ban bn Be be be bs be Be fe me me ae be Bae be Fe 0 Bo Be Fe 2 be Be fo bo Be ne be Bo Fe ne Po Be ho Pm =e h-0 f= 0 0 he Be f2 Pn ho He Pe He 
BRR eB Boe Vout 2 cdr obe0 SPUN CorUH- oe e UOTE LOfut- oo IO Ei Ob ey 


l 


——-OOo000 
= z 
5 = 


z 


—_——— ee ———— 


MACY11 27(732) 


177772 


174620 
174530 


174566 


000315 
177777 
GO444O 


000005 | 
004000 


004000 
004000 


174354 


OO444E 


BINFLB: OPEN sBINARY WORD IS STORED HERE. 
MOV BINFLB, (0)+ «STORE WORD. 
Fe BINFLA ‘BR IF NOT DONE. 
RSTOSS ; ONE. 
sEMT SUB TO CHECK THAT WORD count 1s 0, AND THAT TCBA CONTENTS 
-MATCH THE EXPECTED CONTENTS. 
éwCBA: SAVS 
MOV (S)+, TEMP -GET EXPECTED TCBA CONTENTS. 
STAT ;SAVE TCWC AND TCBA. 
TST ITCWC <WORD COUNT 0? 
BEQ CWCBB -BR IF O (OK). 
ERRORN ‘WORD COUNT NOT YPE 
PCMSG “CONTENTS OF Powe AND CBA. 
WCNOTO 
CTCWC 
cTCBR 
SCOPE | 
174504 CWCBB: CMP TEMP, TCBA :TCBA AND EXPECTED TCBA SAME? 
BEQ cucet -BR IF Y 
OACNY :NO. CONVERT EXPECTED TCBA TO ASCII. 
ATCBAS 
RRORN :TCBA DOES NOT MATCH EXPECTED 
FPCMSG ; TCBA CONTENTS. TYPE EXPECTED TCBA, 
INCTCB “ACTUAL TCBA, AND TCWC. 
TCBASB 
CTCBA 
CT Cue 
SCOPE 
CWCBC: RSTSS. 
RTI -EXIT. 
sEMT SUBS TO SEARCH FOR DESIRED BLOCK NUMBER. SRCHFF GETS FORWARD 
iBLOCK NUMBERS. SRCHRR GETS REVERSE BLOCK NUMBERS. 
SRCHFF : DIRIND :SET FORWARD INDICATOR. 
000305 SRCHRR: MOVB  #-1, DIRIND :SET REVERSE INDICATOR. 
174430 _SRCHA: MOV SSRCHC JTCVTR ;SET INTERRUPT VECTOR TO SRCHC 
000270 MOVE  #5.REVCN ;SET MAX # OF REVE 
000020 BIS #REV, SRC -SET REV BIT IN SRCHM. 
174376 BIT #REV. JTCCM ; REV BIT SET IN TCCM? 
BNE SRCHAA IF YES. 
ooo0ce2 BIC #REV, SRCHM NO. CLEAR REV BIT FROM SRCHM. 
SRCHAA: SETCOM <START SEARCH. 
SRCHM: RNUM!IE!DO 
BR SRCHB 
SRCCON: INC aTCCM - ISSUE DO TO ENABLE RNUM. 
SRCHB: DELAY -TIME OUT INTERRUPT. 
NOINT sFAILURE TO INTERRUPT. 
A 
SRCHC: MOV ¥SRCHD, (6) sHERE WHEN INTERRUPT OCCURS. 
- RTI EXIT TO SRCHD. 


KO0e 
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TCH = Tell TEST 4 
OZTCOC.P1l 


= h— fh © fp be 
o— & - + b= bp ~ B+ 9 — & = p> 9 


Re RE SC SoS SRR EROS Be GRRE 8:00 


mw 
ae 
b= 


le23 


bs b> >— b-— &~ & + b— § -~ b— b— b= b= b= 9 P=  — b= = b= 8 pe 9 P= pe — = = 9 bp = 


SR 


DO444e 
0044S0 


——_ ——— ew ee 
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174332 


174324 


004000 


17274 


004000 
009003 
174310 
004000 
000073 


000063 


004000 
004000 
004000 
000024 


005067 


174106 
A AaeE 


6 
174062 


174366 
174302 
174300 
174336 
174252 
174250 
174242 


174222 


174172 
174162 
174152 


000072 


000072 


000050 
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‘BR IF GOING FWD. 


0 


sRESTORE STACK. 
; ERROR ett SET? . 


Breck Fk 


Et gE ORT Ri BLK. 


Be fF Seon 


HIGH. 
TCOT Lou. "Heck DIRECT ION. 
CONTINUE SAME DIRECTION. 


R ERROR/ENDZ. 


RSE IF LOWER BY 3 OR MORE. 
;NOT LOW ENOUGH. CONTINUE SAME DIRECTION. 
sTCOT sie CHECK DIRECTION. 
REVERSE. CONTINUE DIRECTION. 

Ste RACY 3 FROM TCD 

HIGHER BY 3 OR MORE? 
+0 ve IF HIGHER BY 3 OR MORE. 
NOT HIGH ENOUGH. CONTINUE DIRECTION. 
ORT si? CHECK DIRECTION. 


RO. FWO BLK# WANTED? 
BR 188 IF FWD BLK# NOT WANTED. 
; GOING REV. REV BLK# WANTED? 


;BR IF NOT. 
;IN REVERSE. SET TO FORWARD. 


sFORWARD. SET TO REVERSE. 
:FIFTH REVERSAL ISSUED? 


-BR IF 
: YES. ERROR. SAVE STATUS. 


;BLK# NOT FOUND WITHIN S TAPE 
sREVERSALS. 


;GET WORD COUNT AND SET IN TCWC 
s2(WORD COUNT) TO WROFRG. 


sIN 2’S COMPLEMENT FORM. 
SET ADDR IN TCBA. 
:2(WORD COUNT)+TCBA=FINAL TCBA CONTENTS. 


SRCHD: PUPSP2 
Bh 
RKERRZ 
SCOPE 
BR SACREV 

SRCHDA: CMP TCOT, BLKRO 
BEQ SRCF 
BGT SRCHE 
BIT aB1T11, aTCCM 
i #3, JTCDT 
BaP fl ,BLKRG 
BLOS 
BR ekchv 

SRCHE: BIT eBIT11,3TCCM 
BNE SRCCON 
SUB #3, JTCOT 
CMP BLKRQ. ATCDT 
BLE SRCRVB 
BR SRCCON 

SRCF: BIT #8IT11,aTCCM 
BNE CHG 
TST8 DIRIND 
BNE SRCCON 

SRCHG: TSTB DIRIND 
BEG SRCCON 

SRCREV: BIT #BIT11,aTCCM 
BEQ RCRVB 

SRCRVA: BIC aB1T11, ,aTCcM 
BR CRV 

SRCRVB: BIS eB1TL1, aTCCM 

SRCRVC: DECB = REVCNT 
BNE SRCCON 
STATUS 
SAVSS 
ERRORN 
FPCMSG 
BLKSB 
SRCHER 
TAT 
SCOPE 

REVCNT: .BYTE OPEN 

DIRIND: .BYTE OPEN 

EMT SUBS TO WOATA. RDATA, FORWARD OR REVERSE. 
iRDFR’ MOV #5067, WROFRZ 

WROFRN: SAVSS 
MOV (5)+. 3TCWC 
MOV JTCWE, WRDFRG 
ASL WROFRG 
NEG aT CHC 
MOV (S)+, aTCBA 
ADD JTCBA, WROFRG 


TCY = TC1l TEST 4 

DZTCOC.P11 
1Sue DoNPSd 012777 
1543 Boveds Tos096 
1248 904744 000000 
1860 bo47s8 1ovOe4 
1251 OON75e 104000 
1584 sla NE 79 
ie Bowved 100005 
1256 004766 905067 
1287 004772 104083 
i883 Gou7e O0Ge40 
1860 008000 104034 
i362 008009 - OOOODY 
1263 p0o002 
1264 10 012767 
1265 16 000403 
1 ee tle 
1268 005034 14 
1269 005036 012767 

1270 005044 000403 
1271 012767 
1272 005054 012767 
1273 000701 
1274 005064 012767 
1275 015767 
1276 005100 012767 
1277 005106 000672 
1278 
1279 
1280 
1281 
1282 
1283 005110 012767 
1284 005116 012757 
1285 0051204 00406 
1286 005126 012767 
1287 005134 012767 
1288 005142 104006 
les? 005144 005077 
1890 QO5150 005077 
1231 005154 012500 
1292 O0S156 012501 
1293 05160 O1ecu; 
1294 005162 0000 
1295 005164 012777 
189 05172 104020 
1846 o8176 1044 
1299 005200 104024 
1300 05202 104000 


—_—_—-- ee oe © © 
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004754 


174022 
174120 


000115 


000117 
104025 


004117 
104026 


173640 
173636 


005204 


174054 


000056 
000036 


000040 
000020 


173624 


Oe 
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WROFRA: OPEN 


;SRCHF OR SRCHR CALL GOES 

Teal batt On “Boats, TO WROFRC. 
if THEOUT INTE RUPT: 

FAILURE TO INTERRUPT. 


sHERE WHEN INTERRUPT OCCURS. 
| sRESTORE STACK. 
aTCCM sER ne BIT SET? 
; BR IF NOT. 


; CHECK FOR ERRORS. 
sERROR_RETURN. 
<2 RETURN. 
+ CHECK WORD COUNT AND CURRENT ADDR. 
;TCBA SHOULD EQUAL THIS. 


WWROFRC,aJTCVTR 


sEXIT. 
Si atta balls 


+ 
#RDATA! FWD! ITE!DO, WROFRB 
#SRCHF , WROFRA 


suDATA!REV! IED, WROFRB 
#ROATA! REV! IE!D0, WRDFRE 
#SRCHR, WRDFRA 

WROER 


WRDFRZ 
WRORTA?FD!TE!00, WROFRB 
“SRCHF , WROFRA 


;sWRITE ALL SUBROUTINE. FORWARD OR REVERSE. 
;CALL: WALLF OR WALLR 


MOV 
TCOM 
WRDOFRB: OPEN - 
DELAY 
NOINT 
SCOPE 
WROFRC: POPSP2 
WROFRD: POPSP2 
TST 
BPL 
WROFRZ: CLR 
CKERRZ 
he 
WROFRF: CKWCBA 
WRDFRG: OPEN 
WROFRE: RSTSS 
RTI 
-WDATF: MOV 
BR 
RDATF: MOV 
MOV 
BR 
WDATR: MOV 
BR 
RDATR: MOV 
MOV 
BR 
RDTFSS: MOV 
MOV 
MOV 
BR 
LF 
COUNT 
WALLFF: MOV 
MOV 
BR 
WALLRR: MOV 
MOV 
CWALL: SAVOSS 
CLR 
CLR 
MOV 
MOV 
MOV 
CWALLA: OPEN 
MOV 
SETCOM 
CWALLB: peed 
ELAY 
NOINT 
SCOPE 


sWRITE ALL FORWARD OR REVERSE 
; TRANSFER COUNT 


‘DATA ADDR 

-EXTENDED DATA ADDR. 
WWALLIFWOITE!DO,CWALLB ;SETUP WRITE ALL FORWARD 
sSRCHF , CWALLA 


#WALL! REV! IE?D0, CWALLB 


;SETUP WRITE ALL REVERSE 
#SRCHR, CWALLA ae 


a TCWC ;ZERO TCWC 

aTCBA ERO TCBA 

(S)+,R0 ; TRANSFER COUNT TO RG. 
(5)+,R1 :DATA AD 

(S)+,Re ‘EXTENDED DATA ADDR TO Re. 


-SRCHF OR SRCHR CALL. 

-SET INTERRUPT VECTOR TO CWALLC. 
sASSUE WALLE OR WALLR 

GATT FOR ain 7¢ BRUBT 

‘FAILURE TO. INTERRUPT. 


#CWALLC, JTCVTR 


TCY = TC1l TEST 4 
DZTCOC .P 


1301 


> = > b— 62 bh bb 0 bo 


0 b= b= bo 
NOU CUITHO 


112277 
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173600 
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001000 
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08-SEP-76 09:04 PAGE eb 


CWALLC: 


CWALLD: 


000100 173542 CWALLE: 
173532 15: 


CWALLF : 
p 


MOVB 


(2)+, JTCST 
(1)4 aTCDT 
och 


CWALLD 


RO 
CWALLE 


#IE, aTCCM 
#1 1000 BICST 


; HERE ON nt LOAD EXTENDED DATA BITS IN TCST 


RETURN. 
= ALL TRANSFERS DONE? 

NO. EXIT INTERRUPT 

*DISABLE INTERRUPT. 

‘WAIT FOR DATA MISS 

BB IF At MF atk. TO STATE BEFORE DELAY. 


sRESTORE REGS. 
sEXIT WALL SUBROUTINE 


~4£ 
, 
3 


a | 

Fic> 
JI) 
0-5 - 


—OwWw 


fore 


o— &-- & + 0-- b -< & = 9 p< 9 -< p= 9-9 -« 
ne 
rure 
~j~ 
"a" 
“> 
o~ 


Fe Sy 


EEETESESI OE 


FY 


Dol staptast.ptegh at dtabhasnmammhetatah ashok tah chk akon 
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CALL: RALLE OR RALLR R READ ALL FO FORMERS OR REVERSE 


COUN 
; PORDOR tPXTENED DATA ADDR. 


090107 ocods6 RALLFF: MOV eRALL 2FWDEIE D0, CRALLS ;SETUP READ ALL FORWARD. 
Os 900036 eSRCHF CRALLA 


ER CRALL 
le76/ 004107 penan RALLRR: MOV BRALLPREVITE!DO,CRALLS ;SETUP READ ALL REVERSE. 


O053!0 Ole7e? 104026 MOV —s #SRCHR, CRALLA 
00531 CRALL: SAVISS 
00532 173464 CLR aTCWC s2ERO TCWC 
77 173462 CR aTCBA :ZEROT Tce 
12500 MOV (5)+, RO : ANSFER COUNT TO RO. 
eee hey i a NL 
905.336 BAS SHS CRALLA: OPEN ACHP OR SRCHR 
05340 012777 O0S360 173450 HOV SCRALLC, aTCVTR sa ugs VECTOR TO CRALLC. 
i TCOM 
= 104400 a See AY WAIT FOR: ORPERROET 
5 tduces NOINT iH LURE TO INTERRUPT. 
995356 104900 «SCOPE 
905260 Lizzee 173420 CRALLC: MOVE gTCST, (2)+ $7086 EXTENDED ATA BITS 
505364 O17721 173424 MOV TCOT’(1)¢ 
095370 005777 173412 TST = aTCCM ‘ERROR BIT SET? 
605374 100002 BPL = CRALLD :8R IF NO ERROR 
| CKERRZ :GO CHECK ON ERROR 
Bpeos tba SCO SERROR RETURN. 
oos4d2 00240 NOP :ENDZ RETURN. 
05404 CRALLD: DEC 0 :ALL TRANSFERS DONE? 
O0s40¢ 00140! BEG —=s CRALLE ‘BR IF YES. 
065410 RTI NO. EXIT INTERRUPT 
605412 112777 O00002 173366 CRALLE: MOVB  sRNUM.aTCCM ‘STOP RALL BY SWITCHING TO RNUM COMMAND. 
Nos420 Oe2e26 CRALLF: POPSP2 ;RESTORE STACK TO STATE BEFORE DELAY. 
005422 Oerb25 OC popsps 
Ops424 jO4007 RSTOSS -RESTORE REGS. 
pos426 o00002 RT] SEXIT RALL SUBROUTINE 
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ee aire TO ‘hat FORWARD CHECKSUM FOR 2eS6 oro 0 DATA 


tes BITS OF 6 mane SG 
OTHER 4 BITS ARE ise 
OUTINE CALL IS: 
FADE 
beets SAVO3 
CLR LPB 
CLR ELPB 
MOV ( + 
NOV : a4 PARCTR 
PARTYA: MOV (6)4+. PWORD 
MOV PLORD, Ri! 
MOVE  (2)4,R3 
ROR R3 
ROR R] 
ROR R3 
ROR Ri 
SWAB.SCté‘éRR&‘L 
JSR PC ASRe 
BIC #177700,R1 
JSR PC BITCOM 
MOV PWORD RI 
JSR PC ASRE 
BIC #1?7700,R1 
JSR BC .BITCON 
hOV p RI 
Bic 8177700.R1 
JSR PC. SITCOM 
DEC — PARCTR 
BNE PARTYA 
RSTO 
COM LPB 
BIC #177700, LPB 
MOV LPB, LPST 
! MOV LPS: LPSG 
-XPARTY: SWAB LPB 
MOV 84. PARCTR 
PARTYB: ASL LPS 
ROL ELPB 
DEC PARCTR 
BNE = PARTY 
RTS RS 
PWORD: OPEN 
PARCTR: OPEN 
ASRE: AS RI 
ASR RI 
ASR Ri 
se: fe 
Ree OR 
RTS pC 
BITCOM: MOV LPB, LPBY 
MOV. «LPB. LP82 » 


“at coe re (LEFF Tost ar 1eB) TUSIFIED) 


L TO PARITY SUBROUTINE 
"Yao ATA STRING 
; ADDR OF EXTENDED DATA STRING. 


;CLEAR CHECKSUM WORDS. 
sPATA STRING a TO RQ 


D DATA STRING “ROOR TQ Re. 
SETUP IO TQ a’ tne Fo. Baden PARITY FOR 256 WORDS. 


0,108 DATA BYTE TO R32. 


; PREPARE TO COMPUTE PARITY ON & MOST SIGNIFICANT 
-BITS. INCLUDES EXTENDED BITS 1S ANG 17. 


;GO COMPUTE PARITY. 
sPREPARE CENTER & BITS FOR PARITY COMPUTATION 


:G0 COMPUTE PARITY 
tape 7 LEAST SIGNIGICANT SITS FOR PARITY 


sDONE 256 

°BR IF NOT 

sMOVE 2 MOST SIGNIFICANT BITS OF 

*SAVE COMPUTED PARITY. Rees 

sCOMPUTED PARITY TO ELPB (RIGHT JUSTIFIED) 

: AND 4 LEAST SIGNIFICANT TO LPS (LEFT ToD IFIED) 


sEXIT. 
ENTRY TO SHIFT RIGHT & REG 1 SUB. 
sENTRY TO SHIFT RIGHT 4 REG 1 SUB 


SHIFT RIGHT SUB. 
UTINE TO COMPUTE & BIT PARITY 


TCH = By TEST 4 
OZTCOC. 


1452 


SiERERSESRAHAO 


ae 
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83 =. 
o— -2 p> — p= & -« p= 
a ey at a 
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be B-< bob ~ 
Ouro 
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LPBY: 


LPBZ: N 
SUBROUTINE TO PERFORM COMPLEMENT OBVERSE ON DATA SPECIFIED. 
: SUBROUT 


davers: savo3 
MOV 


OBVA: 


OBVB: 


OBVCNT: ooen 
WRITE DATA, READ DATA. SINGLE BLOCK. BINARY COUNT. 


OBVCT 


OUT 


RWFBKI: CL 


. SUBROUTINE TO WRITE DATA, READ DATA. 2 BLOCKS. 
RWFBK2: MOV | 


RWFBKA: JSR 
MOV 


CALL: 


JSR RS,OBVERS ;CALL TO SUBROUTINE 
ADOR sADDR OF DATA ST 


I 

EADR -ADDR OF EXTENDED DATA STRING 
COUNT ‘NUMBER OF WORDS TO PROCESS. 

(5)+,R0 :GET ADDR OF DATA STRING TO RO 

(5)4/R1 :ADDR OF EXTENDED DATA TO R1. 

(5)+, OBVCNT -COUNT TO OBVCNT 

af OBVCTR ee 

(0) Re sDATA WORD TO Re : 

. “EXTENDED DATA BYTE TO R3. 

R 

(0) -CLEAR DESTINATION WORD. 

R3 

Re 

R3 

R2 

R3 

R2 

(0) 

(1) 

3) 

{1) 

i 

OBVCTR -DONE & TIMES? 

O8VB NOT DONE. 

(O)+ :UPDATE DATA ADDRESSES. 

OBVCNT ; DONE? 

O8VA :BR IF NOT. 

RS sEXIT 


RWF IND :SET SINGLE BLOCK INDICATOR. 
BINARY COUNT. 

-SET 2 BLOCK INDICATOR. 
‘BIN FILL 256 WORD WRITE BUFFER O. 


;CALL WOATAF SUB TO WRITE FWD 256. WORDS 


- I 
PC, BINFLO 
BLKNUM, BLKRO 


TOY = TC 
OZTCOC .P 
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E03 


;STARTING AT ADOR WEUFO 


CALL parse Dy ta REV 256. WORDS 


;CALL_DATCKI TO CHECK DATA STORED ate, 
;WBUFO AGAINST ih ene AT RBUF 


ACTUAL BATA i 1s ¢ "CHECKED 3, SEECHEAE Dic SEOET Sea 
BR 
:NO. 


;CALL_WDATAF 
STARTING AT 


seToRTING AT 


DATCKI TO CHECK DATA STORED AT 
1 gt: STORED AT RBUF1+510. 


PECIFIED. REPORT ERRORS. 
setae AATA ts "CHECKED N DESCENDING ORDER. 


. BIN FILL WBUF1. 


TQ WRITE FWO 2S6. WORDS 
WEUF 1 
TQ ~ REV 256. WORDS 


eb 


I 
; SUBROUTINE TO ORaT UP WRITE BUFFER(S) TO MATCH DATA EXPECTED 


TAR 
“BUF 1 
DAT KI 
RBUF1+510. 
RWEBKE : Bre" pC 
RWFIND: OPEN 
AF * 
serie: “ct , ND 
SETWBR: MOV #-1, SETIND 
SETWBA: JSR RS, PARITY 
EEBUP BUFO 
MOV PB, FWCKSO 
MOVB EL EWE CKO 
JSR ITY 
WBUF 1 
MOV ' FUCKS 1 
MOVB EBA Eur Pee 
MOV aL WFBLKO 
MOV KRQ: WFBLKI 
MOV KO 
MOV Bins WRELK 1 
INC BL Ki 
INC WRELK | 
ISR RS, OBVERS 
WRBLKO 
EUREKO 
JSR RS, OBVERS 
WRBLK1 
EWRBK | 
tsT SETIND 
BEQ STKBE 


;SET FWO INDICATOR. 


;SET REV INDICATOR. 
;COMPUTE PARITY FOR WBUFO. 


;MOVE PARITY TO FWD CHECKSUM IN WSUFO. 
;COMPUTE PARITY FOR WBUF 1. 


;sMOVE PARITY TO FWD CHECKSUM IN WBUF1. 


;SET UP_FORWARD AND REVERSE BLOCK NUMBERS 
sIN WRITE BUFFERS. 


sREVERSE SET UP? 
BR IF NOT. 


Ast - i TEST 4 MACY11 €7(732) O8-SEP-76 09:04 PAGE 31 





TCD. 
1525 004567 177356 JSR RS, OBVERS “REVERSE SET UP. COMPLEMENT OBVERSE 
1528 11264 BUBUED ‘ENTIRE WRITE BUFFER. 
iB Ee. 
l : STWBE: Fe pc EXIT. 
1530 900000 SETINO: OPEN 
1531 | -SUBROUTINE TO CLEAR ENTIRE READ BUFFER. 
1832 0403S CLRRBF: CLEAR 
isn Gees Bhiee 
1535 4 aCEAR 
1538 164 ARBFO 
153 1 ' 
1538 000207 RTS pC -EXIT. 
1539 i BINFLO: CLEAR “CLEAR ENTIRE WSUFO. 
1540 Lieb BUBUF 0 : 7 
1eNe i . PPAR sCLEAR EXTENDED WBUFO. 
fea Gees Blase ck 3 
1545 4 04 . BINEIL ‘FILL WRITE BUFFER O WITH BINARY COUNT.’ 
1546 4 il WBUF 
teug Spouse ” SFE" PC XIT 
iEv8 Soe i BINFLI: RI BAR ee ENTIRE WBUFL. 
1 434 01231 AWBUF 1 2. 
1551 006436. O000412 266. 
135¢ 440 LOO CLEAR :CLEAR EXTENDED WBUF1L. 
eee con 
1555 446 104036 BINFIL sFILL WRITE SUFFER 1 WITH BINARY COUNT. 
1ee? QoeNee | QO0400 a | 
1558 O06454 000207 RTS -EXIT. | 
i559 - SUBROUTINE TO RE REVERSE QuEeNcE OF 2 DATA STRINGS. 1ST STRING IS A WORD STRING, 
1550 © PND STRING IS A gyre an RING. BOTH STRINGS MUST HAVE SAME NUMBER OF ELEMENTS. 
1561: -CALL: JSR CALL . 
1562 ADR “ADOR OF WORD $1 STRING. 
1 - ° BADR ADDR OF BYTE STRING. 
1564 CNT ‘NUMBER OF ELEMENTS TO REVERSE. 
1565 OO64SE 104002 REVERS: SAVO3 
1556 OO6460 012500 MOV (5)+,RO :WORD STRING ADDR TO RO. 
1567 006462 912501 MOV (5)+,8 ;BYTE STRING ADOR TO RI. 
1568 006464 D1eS0e MOV (5)+! s COUNT TO Re. 
1569 006 DEC Re ‘OECREMENT R2 BY 1 TO FIGURE ADDR OF LAST 
1570 00647 010203 HOV Re, R3 *ELEMENT FOR BOTH STRINGS. 
Oe000e RO,R2 :ADDR OF END DATA WORD IN Re. 
1 Ri ‘ADDR OF END DATA BYTE IN R3. 
RVERSA: MOV (0), RVRSA 

MOV (2) RVRSB 

MOV RVRSR, (6) 

MOV RV (O)+ 

MOVB  (1),BRVRSA 

MOVB (3). BRVRSB 

MOVB §BRVRSA,(3) 
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1581 34 116721 o00015 MOVS §§ BRVRSB, (1)+° 
1382 bE eat 005742 : St. “5 :COMPLETE DATA ADDR UPDATE. 
fe eee fete ME Sac 
4 : I VER ‘BR IF YES. REVERSAL NOT COMPLETE. 
1588 006550 104003 RSTO “YES. DONE. | 
l 000205 RTS RS -EXIT. 
l RYRSA: 
l 000 BRVRSA: .BYTE | OPEN 
1590 ss 900 BRVRSB: .BYTE OPEN 
1591 006556 000000 RVRSB: OPEN 
l 2 -EMT SUB rN SELECT CT SEQUENTIAL DECTAPE UNIT. 
l 006560 000010 SODRV: 
1594 006564 042767 177770 onp0002 3177770, SQDRVA 
1595 006572 Er ORV 
1s 90006 SGDRVA: OPEN } *DESIRED UNIT NUMBER. 
15 770 SQDRY sUNIT NOT AVAILABLE RETURN. 
1598 50C ‘UNIT SELECTED. EXIT. 
1599 -EMT SUB TO SELECT DECTAPE UNIT SPECIFIED. 
1600 OO6602 104006 SELORR: SAV voss 
1601 006804 012500 : (S)+ :GET NUMBER OF UNIT TO BE SELECTED. 
1602 OO6608 136C67 OO6634 172252 : BITB UTAG CD) UNITS ; SEE IF UNIT AVAILABLE FOR TESTING. 
1603 006614 001405 , BEQ - SELDRA UNIT NOT AVAILABLE. 
1604 006616 O10067 172242 MOV RO, UNITN SAvAT. SELECT UNIT. 
1605 O066e2 110067 1722 RO’ UNIT+1 
1608 006626 0s 7e5 TST (5} -SET UP SELECTED EXIT. 
1 006639 104097 SELDRA: RSTOSS : a 
1608 o0c90e T -EXIT. 
16039 906634 90! 002 004 UNTAB: .BYTE BITO,BIT1,8172,8iT2,8IT4, BITS, BITS. B1T7 
1610 006637 91 020 040 Soe 
1611 O06642 1 200 : : 


HO3 
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lé6le - Seagate jercg rempcgm tts a gti ae pea imeagerpy crete ener 
+ 
Pte Bpecue Bhp Sg ?, . ERR BREE OF RENT ROUTINE % 
1615 006650 O0001e 10. TB T ITERATI COUNT $ 
16 O06&S2 O066S4 A TRY 


# 
eueeanesneansussesansasaneseesalicansaeanssnsnnnnaeeseesstansaeaneanss 


~ 
oo" 


161 
1818 ;RALL FORWARD T 
1619 : TES] SPOUENCE:- [wba RAD TE 1 Bock 
1620 A_REV 1 BLOCK. VERIFY DATA 
1621 3 ; RAL F 258 WORDS. VERIFY DATA INCLUDING REVERSE 
1622 | FORWARD CHECKSUMS. 
1623 006654 177174 ka: JSR PC. RWFBK I sWRITE/READ SINGLE BLOCK. 
1624 006660 016767 172224 172172 MOV BLKNUM, BLKRQ 
1625 004767 177302 JSR PC, SETWBF -SET UP WRIT PERS. FWD. 
bee 72 767 177472 JSR PC; CLRRBF s CLEAR fEAD 
7% 1 a2 RALLF 
‘ Y 
1638 DOESoe Blast RRPicp ep ete The STERTING 
1630 006704 016424 ERRCKO 1 ROQRESS E 
1631 706 104041 ADTCK ‘CALL ADTCK at S CHECK 18 BIT DATA STARTING 
1632 906710 011276 WBUF “AT ADDR WBUFO AND EWBUFO . AGAINST 18 BIT DATA 
1633 7le Ol BUFO -STARTING AT ADOR RBUFO AND ERBUFO . FIFTH ARGUMENT 
1634 06714 15411 EWBUFO s REPRESENTS # OF 18 BIT ELEMENTS TO CHECK. 
1635 716 1b ERBUFO *REPORT ERRORS. 
ie BoE 104000 SCOPE - SCOPE. 
1638 ETT T TT TTT ETC TTT ETT TTT TT TTT TT TTT TT TT TTT TT TTT TT TTT TTT TTT TTT TTT TT TTT Tere 
1 O06 000001 ti: 1 s ROUTINE 1 % 
1640 9067 907004 T2 sADDRESS OF NEXT ROUTINE % 
1641 0067 le 10. | s TEST ITERATION Co COUNT | % 
164 0067322 006734 ° ENTRY % 
164 , eeaueensueunqunsseuueenssaausedisuesaboneuged sbansenunneeauecnseenseen 
1644 sRALL REV TEST. io 
1645S “TEST SEQUENCE: ATR EHO 1 | Boek 
16 fev CK. VERIEY are 
16 : Bey 358 UO FY 
OO4S67 177114 ba: JSR RS, Ra oe " BaD. VERIFY OR SINGLE’ BLOCK (SEQUENCE 1 AND 2). 
016767 172144 172112 MOV 
004767 177230 13k RN KRG ‘at UP WRIT ER REV. 
004767 177412 J PC’ CLRRBF -CLEAR READ BUFFERS. 
1 RALLR READ ALL L REV 258. WORDS INTO 
0004 258. SO AND UP. EXTENDED DATA BITS ARE 
013344 RRCKS ‘STORED IN CONSECUTIVE BYTES STARTING 
016434 ERRCK ;AT AO 
104042 ADTCKI -CALL ADTCKI SUB TO CHECK 18 BIT DATA STARTING 
: AT ADDR O - 0 AGAINST 18 BIT DATA 
-2 STR ING A yagoR FRCK AND ERFCKO-1 . ACTUAL 


-1S cHeckeD T ED IN DES DESCE NDING ORDER. 


EWaUFO IFTH AR 
RFCKO-1 # OF 18 BIT ELEMENTS TO BE CHECKED. 
: REPORT inRORE 


eS6. 
SCOPE 


ees 


— 
© 
3 





TOY = TCll TEST 4 
OZTCOC Pil 


f 
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BIR ALOO—O 


dase 


007014 


FERS 
QOo00-OoOoO 


rate 
N™N 
ae ay as 


ees 


SSMU Tae 


007014 
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» ELLER AEAALALELAAALALE RE LAALALAALAAAEAAARALEARERSERALELAL LAL LAAAALLALLEE 


te: “ROUT R2 P 
; 8 : XT ROUTINE + 
10. E TI COUNT ‘ 
pect paclececiaicccaedl AS mB Reale 
sHAL SPOUENCEL T SO FILL We a FER i 
: FILL IN et AND £ BUF BKSUMS. 
. WALL FUD 258 WORDS ONTO BLOCK 200. 
4. RDATA FWD a WORDS. vai pate 
! 5. WORDS 8 WORDS INCLUDING EXTENDED BITS. 
177366 ba JSR BINFLO -BINFIL WBUF 
172064 172032 MOV BLKNUM 
177142 JOR PC, SETWBF sSET UP glRITE. BUFFER FWD. FWD 
ce. . TS ARE 
mucisa SC Ne seine os are eH 
RDATAF ‘PALL CORDA TBE ct 0 READ FWD WORDS 
ecb. “AND STORE AT ADDR STARTING AT RBUFO 
DATCHK :CALL sPRISHK SUB 10 CHECK baTA STORED AT 
W8UF O AGAINST ST DATA § T RBUFO 
RSUFO CHECK NUMBE Wares COPE IFIED. REPORT 
256. ERRORS ; 
176650 JSR RS, OBVERS : 
AWBUFO 
RALLR READ ALL ALL a sg. INTO 
SB. AD AND UP. EXTENDED DATA BITS ARE 
RRCKSO STORED IN CONSECUTIVE BYTES STARTING 
ERRCKO “AT ADDRESS ERRCK 
ADTCKT -CALL ADTCKI SUB TO CHECK 18 BIT DATA STARTING 
RWCKSO ;AT EWRCKO BGAINST 18 BIT DATA 
FRCKSO ‘STARTING AT FRCKSO Bnd ERE ERF ACTUAL DATA 
EWRCK -IS CHECKED IN DESCENDING OROER TFTA ARGUMENT 
ERFCKO ‘REPRESENTS # OF 18 BIT ELEMENTS TO BE CHECKED. 
58. ‘REPORT ERROR aS. 
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+ SHEAR LRAA ELAR ARAL AAA ARARA SAAR ARRA RARE RARER RLERA SAAR A RAL SAAR AALA LESS 
3 * 


dadea # 


07 ; T3: sR R 
rise me i fy f /ADORESS OF NEXT” ROUTINE ‘ 
0071 10. {TEST ITERATION COUNT , 
007126 007130 3 OPE ENTRY PO 


HA NT * 
+ HHH HHEEHHHEHEEHEHHEHHHEEEEEEEEEST 8 SEES EE EERE EERE HESS 


1719 

1711 :WALL REV TEST. SINGLE BLOCK. SBINAR NT. 

1718 “TEST SEQUENCE: 1. 8 BINARY FILL WRITE BUFFER O. 

171 . FILL IN REV AND FWD CHECKSUMS. 

1714 3. OBVERSE 258 WORDS TO BE WRITTEN. 

1715 4. WALL REV 258 WORDS ONTO BLOCK 200. 

1716 S. RDATA REV 256 

171 : OBVERSE DATA READ IN STEP S AND VERIFY DATA. 

1718 RALL FWD 258 WORDS. VERIFY 258 WORDS INCLUDING EXTENDED SITS. 

1719. 007130 OO4767 177252 Ha: JSR PC, BINFLO 0. 

1720 007134 016767 171750 171716 MOV BLKNUM, SLKRQ 

72 007142 004767 177034 JSR PC, SETWBR -SET UP WRITE BUFFER REV. 

1722 007146 OO4S67 177304 JSR RS; REVERS ‘REVERSE WRITE BUFFER DATA. 

1723 0071S2 011274 RWCKSO . : 

1724 154 O15410 WRCKO 

1725 156 S8 : 

te Geriee Sons a PROT aie REE CO ETN ae 

1728 Boo tea 11274 FrRso TREN PR n Cons beanie WES STARTING 

1729 007166 015410 EWRCKO 

1730 097170 14038 RDA Ca PORDE FBR” ot oo" READ REV 256. WORDS 

1731 00717 ‘STARTING AT ADDR RBUFO 

it Bos 7e BoaeE eS 176532 WER RS, OBVERS OBVERSE DATA READ 

1734 Bosse 011274 0 

1735 007204 015410 EWRCKO 

1736 007206 O0040e sg. 

1737. 007210 104037 DATCHK :CALL DATCHK SUB TO CHECK DATA STORED AT 

1738 O07ele 011276 WBUFO :WBUFO AGAINST DATA STORED AT RBUFO 

1739 007214 013346 RBUFO “CHECK NUMBER OF WORDS SPECIFIED. REPORT 

1740 007216 O00400 

17a 14047 RALLF ‘READ ALL FWD 258. WORDS INTO 

174 S22 258. ‘ADDR RRCKSO AND UP. EXTENDED DATA BITS 

1743 007224 013344 RRCKSO ; ARE api he N CONSECUTIVE BYTES STARTING 

1744 26 016434 ERRCKO SAT RRCK 

ine ree gies ses EF oe att GR LLL FA 
Pd 

ious Bo7es4 | BtaSde RACKED TART TN Rat "At PRCKSO aNd ERFCKG “AcTuRL ba 

1748 3 15410 EWRCKO is CKED I N DESCEND NG ORDER. ARGUMENT 

1749 907 17035 RF CK EPRE 18 BIT ELEMENTS : or CHECKED. 

1750 007242 O004de2 ose. : REPORT ERRORS. 

1751 007244 104009 «. SCOPE 


IIVHATZIIAISE 


“I~ 


28828 


Ns 


00476 


Stotot 
Sw sy 


SB588s2285 
P8ePSBE4R2 


Pe 
zy 
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177124 


177144 
171616 171564 
176674 


177026 


171444 


. 
——_- _— ee oe ewe at « & 
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TS 

10. 


KO3 


- LELEAAALARAELELAAELELAALALAAA LALA LLL ALARA LA ALAAAREAFRAAARLERALALALLALAALELE 
4 # 


*ROUT RY 
ce OF EXT ROUTINE + 
*TEST ITERATION COUNT ‘ 


Y * 
2H HHH HE HHH HHS HHIEg HEHEHE 


;WALL FWO TEST. 2 BLOCKS. BINARY 
; TEST SEQUENCE : 


ta: JSR 


ts: 


1. 


COUNT 
BINARY FILL WBUFO AND WEUFI. 


: Att ON 


PC} BINFL! 


SE TWSF 


BLKNUM, BLKRQ 
PC 


V ghia: FWD ASHE CKSUMS. Pong 
a DATA FWD WO CHECK FOR PARITY 
WO S28 . VERIFY 


ERRORS. 
DATA AND EXTENDED DATA. 
: BINFIL WBUF 1. 


;SET UP WRITE BUFFER FWD. 

sWRITE ALL FWD S28. WORDS STARTING 

:FROM ADDR RWCKSO . EXTENDED DATA BITS ARE 
s TAKEN FROM CONSECUTIVE BYTES STARTING 

SAT ADDRESS EWRCKO . 

;CALL_RDATAF SUB TO READ FWD 512. WORDS 
AND STORE AT ADDR STARTING AT RBUFO 


;READ ALL FWD S28. WORDS INTO 
.jADDR_RRCKSO AND UP. EXTENDED DATA BITS 
"SARE pioree sR Se CUT IVE BYTES STARTING 


:AT ROQRES CK 
;CALL ADTCK TO CHECK 18 BIT DATA STARTING 

387 ADDR RUC EWRCKD 18 BIT DATA 
*STARTING AT ADDR RRCKSO AND ERRCKO . FIFTH ARGUMENT 
IREPRESENTS # OF 18 BIT ELEMENTS 10 CHECK. 

*REPORT ERRORS. 4 


SCOPE 
sisted ‘isk Liable ileeblaieilaibieeiioait-+17--1e-ntvh'?-+-+-1t-Iedloeieieoiioniboeiboaieioeiiniat 
% 


ADDRESS OF NEXT ROUTINE + 
sTEST ITERATION COUNT é 
-SCOPE ENTRY POINT 


# 
1H HHH HHH HEHEHE HOHE HHIHHHBHHH HHH 


*WALL REV TEST. 2 BLOCKS. BINARY COUNT. 
-TEST SEQUENCE: 1. INARY FILL WBUFO AND WBUFI. 
TLL IN REV BND FMD CHECKSUM : 
3. OBVERSE AND REVE OF DATA 19 BE WRITTEN. 
4. WALL REV WORDS, iT Bock oo 
S. RE DATA see 0 CHECK 1 ORS pap TY ERRORS. 
6. RALL REV See ios VERIFY DATA AND EXTENDED DATA. 
Sa: JSR PC BINELO iBINE L WBUFO. 
JSR NF NFIL WBUF I. 
MOV KNUM, 8 
JSR C, SETWBR :SET UP WRITE BUFFER REVERSE. 
JSR RS'REVERS REVERSE S28 WORDS OF WRITE DATA. 
AWBUFO 
EAWBFO 
S28. 
INC BLKRQ 
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b= 6 = b> b-- & = b+ 6-4 & 2 p = pee 
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176712 
171360 


176470 
001 


—— —- ere te ~~". 


171342 


08-SEP-76 09:04 PAGE 37 


te: 


WALLR 
Se 


8. 
oe 


T7 
10. 


sWRITE ALL a S28. WORDS STARTING 


sFROM ADOR AWS 
‘TAKEN FROM . 
sAT ADDRESS 


sCALL_RDATAR SUB TO 
‘STARTING AT ADOR RB 


ADDR ALL REV S28. WORDS 


STORED IN CoNGECUTIVE. 


NSECUTIVE™ BYTE 
5READ REV Sl2. WORDS 


TEND 
BYTE 


e. 


DATA 
S STAR 


TA BITS ARE 


ARTING 


au are , ot 10 CHECK ECK 18 BIT DAT baTA 
0 UFO AND PARSE. 


STARTING AT 
; REPORT 


TIN 


STARTING 


T 18 BI 
ADOR BRBUF FIFTH 
REPRESENTS 8 OF 18 BIT ELEMENTS TO CHECK. 


: -ieiiedind ig, mo “eigchrhetaleshchtc teeter t+ ghey hol—- Sp chatted fl lanl 
+ 


ADD S OF NEXT ROUTINE 
sTEST ITERATION COUNT 
:SC NTRY POIN 


+ 
% 


KA OINT £ 
agete esr an anaem etd cig eteeneanetneneeeenee 


;WALL-RALL TEST 


; TEST SEQUENCE: 


k 


A: 


KB: 


KC: 


FWD. 


HECKSUMS. 
BLOCK a ene WITH O. 


XTENDED DATA Bie ARE 


TAKEN FROM CONSECUTIVE BYTES STARTING 
SS EWRCKO . 


;BR IF NOT 
SET UP TO READ DATA REV EVERY OTHER BLOCK. 


;CALL_RDATAR SUB TO READ REV 256. WORDS 


WORDS SP 


L BLOCKS BINARY 
1. BINARY FILL WBUF 
2. FILL IN REV_AND C 
3. WALL FWD 260 WO SIN EACH 
4. RDATA REV EVERY OTHER BLOCK. VERIFY 
S. RDATA FWD EVERY R BLOCK. VERI IFY B 
&. OBVERSE WRITE DATA TO MATCH RALL REV DATA. 
7. RALL REV 258 WORDS EVERY OTHER BLOCK. VERIFY DATA. 
8. REOBVERSE WRITE DATA TO MATCH RAL 
9. RALL FWD 260 WORDS EVERY OTHER BLOCK. VERIFY DATA. 
JSR PC, BINFLO -BINFIL WBUFO. 
CLR BLKROQ 
JSR PC. SETWBF -SET UP WRITE BUFFER 
MOV 578. .RO -SET UP TO WALL S78 BLOCKS STARTING 
NOY a1 ,BCKRG :WITH BLOCK O. 
WALLF -WRITE ALL FWD 259. WORDS STARTING 
259. “FROM ADDR RWCKSO . 
RWCKSO 
EWRCKO “AT ADDRESS E 
DEC RO -DONE ALL BLOCKS? 
BNE KB IF DONE. 
MOV #299. ,RO 
MOV 0373. "BLKROQ 
SUB 2, BLKRO 
RDATAR 
ob. ‘STARTING AT ADDR RBUFO 
DATCKT -CALL DATCKI TO CHECK DATA STORED AT 
RBUFU+S10. 
256. 


:WBUFO AGAINST DATA STORED AT RBUFO+S10. 
CHECK # OF WW PECIFIED. REPORT ERRORS. 
ACTUAL AATA IS * CHECKED IN DESCENDING ORDER. 


CATA 
ARG 


UMENT 
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ozTcoc.P 
1864 007574 005300 DEC RO : DONE? 
1868S 007576 001364 BNE KC ‘BR IF NOT DONE. 
1 - als Te 09 000441 MOV #299. RO ‘SET UP TO READ DATA FWD EVERY OTHER BLOCK. 
1 aC 7b 177776 171246 MOV #-2, BLKRO 
1868 00712 o00002 171240 KD: ADD #2, BLKRO 
1869 00 ranted RDATAF -CALL RDATAF SUB 79 READ FD 256. WORDS 
1870 007622 O00400 256. “AND STORE AT ADDR STARTING AT RBUFO 
1871 00 0133 RBUFO 
_1872 007626 10403 DATCHK sCALL DATCHK SUB TO CHECK DATA STORED AT 
“1873 00 011276 WBUFO ; HBUEO 0 AGAINST DATA STORED AT 
1874 00 BT aSue A. RBUFO K _NUNBE WORDS SPECIFIED. REPORT 
1875 007634 900400 256. fre 
1876 007636 005300 DE RO 
18 0076 001364 B KD *BR IF NOT DONE. 
1878 542 S67 176066 JSR RS, OBVERS : BBVERSE WRITE DATA TO MATCH RALL REV DATA. 
1879 007646 011264 WBUFO 
1880 007650 015404 EAWBFO = 
1881 007652 DO04 ie 266. : 
1882 007654 012700 o00441 MOV #289. ,RO :SET UP TO RALL REV EVERY OTHER BLOCK. 
1883 007660 012767 001103 171172 MOV #579. . BLKROQ 
1884 007666 162767 O00002 171164: KE: SUB #2, BLKRO 
1885S 007674 104050 RALLR ;READ ALL REV 258. WORDS INTO 
1886 007676 oo040e 258. R RRCK XTENDED DATA BITS ARE 
1887 013344 RRCKSO : STORED IN CONSECUTIVE BYTES STARTING 
1888 007702 016434 ERRCKO _" “tRT ADDRESS ERRC 
3889 007704 104042 ADTCKI ;CALL ADTCKI SUB TO CHECK 18 BIT DATA STARTING 
1890 011274 RWCKSO “AT ADDR RWCKSO AND EWRCKO , AGAINST 18 BIT DATA 
1891 007710 O1434E FRCKSO “STARTING AT ADDR FRCKSO AND ERFCKD . ACTUAL DATA 
1892 007712 015410 EWRCKO _ #1S CHECKED IN DESCENDING ORDER. ET eTH ARGUMENT 
1893 007714 O1 ERFCKO “REPRESENTS # OF 18 BIT ELEMENTS TO BE CHECKED. 
1894 007716 o00400 6. ; REPORT ERR ORS” 
1895 007720 O00S300 ~—Cs«i(<s DEC RO ; | 
18968 007722 001361 BNE KE : BR tr NOT DONE. 
1897. 007724 OO04567 176004 JSR RS, OBVERS *REOBVERSE WRITE DATA TO MATCH RALL FWD DATA. 
1898 007730 011264 - AWBUFO 
1899 007732 015404 EAWBFO 
1900 007734 O004I1e2 266. : Ye 
1901: 007736 012700 oo0441 MOV #289. RO :SET UP T9 RALL FWD EVERY OTHER: BLOCK. 
1902 007742 012767 177776 171110 MOV #-2.BLKRQ : 
1903 007750 062767 OO0002 171102 KF: ADD #2, BLKRO 
1904 007756 104047 RALLF -READ ALL FWD 258. WORDS INTO 
i90S 007760 oog040e 258. “ADDR RRCKSO AND UP. EXTENDED DATA BITS 
19068 007762 013344 RRCKSO ARE STORED IN CONSECUTIVE YTES STARTING 
1907 007764 016434 ERRCKO “AT ADDRESS ERRCK 
1908 907766 104041 ADTCK CALL ADTCK SUB 10 CHECK 18 BIT DATA STARTING 
1909 007770 611274 RWCKSO K WRCKO , AGAINST 18 BIT DATA 
1910 007772 013344 RRCKSO STARTING QT ADDR RRCKSO AND ERRCKO . FIFTH ARGUMENT 
1911 007774 oO1S410 EWRCKO *REPRESENTS # OF 18 BIT ELEMENTS TO CHECK. 
1912 016434 ERRCKO ‘REPORT ER RORS. 
1913 010000 o0040e2 cg. , 
1914 010002 005306 C RO : DONE? 
1915 910008 001361 BNE KF ‘BR IF NOT DONE. 
1916 Ol 104000 SCOPE 
1917 "lahat ideale by '-+- highchair 
1918 010010 000007 t?: NUM s 
1919 010012 177777 ce TLAST ADDRESS OF NEXT ROUTINE ¥ 
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1U. sTEST ITERATION COUNT % 


LA TRY POI * 
pk, PAEIeaaReAC ERY Reo eTrot ermmTer er Tre 
; TEST SEQUENCE: i. 

a F REVERSE. AND AND FORWARD CHECKSUMS. THE RESULTING 


Pan oi on 77. 


CKSUM. 
HORS. INCLUDES INCORRECT PARITY. 
TO VERIFY DATA WRITTEN. 
MUORDS, PARITY ERROR SHOULD OCCUR. IF NO 

TYPE QUT THE CORRECT PARITY AND THE INCORRECT 
TE THE BIT FAILING TO CAUSE ERROR. 


ouncw) 
~ 
ie 
iat) 


; BOAT 
ERROR ACrURe 
PARITY WRITTEN, TO INDICA 


[ee ec ee es we we ws wows 


7. REPEAT STEPS 2 THROUGH 6 FOR EACH PARITY BIT. 
Q JSR PC, BINFLO ‘BINARY FILL WBUFO. 
JSR RS, LSUBA ;RUN TEST. 
JSR RS, LSUBA » RUN TEST. 
JER. RS,LSUBA -RUN TEST. 
SR. RS, LSUBA RUN TEST. 
SR RS,LSUBA :RUN TEST. 
JSR RS,LSUBA RUN TEST. 
BITO 
SCOPE : SCOPE. 
LSUBA: MOV BLKNUM, BLKROQ 
JSR - RS,PARITY :COMPUTE PARITY FOR WBUFO. 
BUFO 
BIC (5)+,LPBT -CLEAR SPECIFIED BIT FROM CALCULATED PARITY. 
MOV LPBT: LPB 
JSR RS. XPARTY 
MOV LPB. FWCKSO -MOVE BAD PARITY TO WBUFO. 
MOVB ELPA. ENFCKO 
WALLF -WRITE ALL FWD 258. WORDS STARTING 
Bicg eet Peotneecinie viesrstantine 
EWRCK AT SORE 5 EUR Ro So 
; RycHe UP. EXTENDED DATA BITS 
RRCK :800 STORED IN CONSECUTIVE BYTES STARTING 
ERRCKO : AT 
ADTCK ; CHECK 18 SIT. DATA STARTING 
RUCK aT EHRCKD 4 268 NST 18 g BIT bata DATA 
RRCK :STARTING AT ERRCKD FI 


s REPRESENTS rare BIT ELEMENTS TO CHECK. 
sREPORT ERRORS. 


sCALL RDATFS SUB TO READ DATA FwD = WORDS 
SAND STORE “Y ADDR STRATING AT -RBUFO 


Beaty eto 


0 : 
B s8IT14,aTCST 
LSUBBA :BR IF PARIT 


" ERROR SET. 


a+ 


CONVERT INCORRECT PARITY TO ASCII. 


;sCONVERT GOOD PARITY TO ASCII. 
sFAILURE TO DETECT PARITY ERROR. 


sNO. ERROR. 


sEXIT. 


BO4 . 


RS 
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21748 


1752 


&Ce2 
elgls 


17578 
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1786 
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1631 1779 1819 1908 1965S 
1657 1698 1745 1889 
te: tae 1878 7 ; 
ds 23 gs S32 S33 534 $35 S36 $37 $38 $39 S40 S41 S42 
tes By, 4h 47 Dac i435 550 ssl $5 S3 cs4 css Sis Ss7 
539 £ 61 be S63 <oé StS ses Ss &: 569 570 571 
16 7 ie ioe 1 1961 | 
E83 1332 ise 
7 
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181 is 1684 17 17Se 1786 lS26 1917 
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~~ 


ADD 910 913 guy 94S 92 999 1200 em 1872 1873 1068 1903. 
ASL 907, «1e4l=Ssa39?—s1 87] | 
ASR 14404 «=61405) «6 1408~=Ssia80?)~—Ss4os)=—Ssd4ogt*” eee. 
BF ova INiCéwTsiCéSECSC«‘iSC‘éwk:COC*«‘wk?SCité«‘éikSCiCtiCT 980 1006 1050 1061 
108 1198 “MOS = 1107, ss d2sHS = s1184 0s 1198—s—si9S)—Ss2tBSs1229ss1308)=—ss1313's«130—Ss«1479 
l 1603 : 
Bar Stsét Bg 
bee 595 912 891s so «(1064 «=ss«108S'—‘é‘éké7@«~«=SCOt@2OStsié«AA):«SiéiéidSS7S)—~=(‘«aeCtCiCi‘<‘ik zz COO 
1416 1594 1952 : 3 
Bis S78 17h gee MI? : : : 
BIT mn: £15 i> 6. 6 6m%lUlUOlCUee hel Cee oe: ur? tie esta 
1216 1312 1974 
BITE 1602 
BLE 1208 
BP am 
BNE 607 609 631 E52 cp OgEROC*«‘C*#G? 675—ti‘éG+ GL 683 . 84S = gS0 392 994 
899 920 949 965 1008 106 16 -Rie8 (lime 1178 - 1s a 121d es 
soa 1389 «1400)0—s(452.—Os«1 SG 1853 1865 18 ay 1915 1975 
aR eag sé fia Bio ie <7: 4 717 975 1016 
1938 104) 1043 1149 1128 162 #110 °° 1200 «61208 )~=Css«2ksieS CkCti‘ikCtiéiam@aasCi‘i‘(k 
CLR . ww a a if 1056 1087 #1123 1258 1209 #41200 1990 130 #4155 @~«|61%6 
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CMP ay 60Coggo.0CltSCtié«édTGSRRCté«‘*éTSESC(<«t‘éiO SiS SsisaSD iL Ci‘d2OkiC‘iéke@otiséSN 
kon Oté«<iE?«téi‘é“S ge RSF ng9. ngs ag3 434 
DEC 630 674 281 Bg 919 929 4 95 1101 1115 1124 1135 1308 1349 
oe 1388 1389 1451s 14 156 162 at 1914 
30 $31 53 533 S34 S S36 527 ~  §38. 539 S40 S4] S42 543 S44 
. Bee oa 46 ¢ 551 a- 6&3 syOtsé#GSSS 5s? 559 
a 6 Se eS Bee eee ee Re 
INC =88 be be 59% 42 1103 1183 #1454 2481 1513 151% 1593 1807 1847 
ISR foo oe eee * eae, 1378 0 1382 13849 «®#«+1387 1466 y 4 1504 
1315 151915281623 16251606 1649 1651 1652 «1676~—S «21678 1719 1721 1722 
i7za (178 CO%SSC«dTePtC«‘«d#SS)=éséGe@OO)6O Ci 1803 i842 1844 1878 | 1994 19 1937 
1939 #1941 1943 1945 1949 1954 
" BBE Eee eRe He RR BH H 
713 716 713 720 72] 72 723 724 725 726 727? 730 731 73? 
eee; eee ee 74 7482s 749 0 > 751 753 756 
7 06CUC«Ca ae. Sie ED Oe 5 i 75 731 793 
7 Boe eee eeeees FS s 
68 99 ® 970 abi 976 184? 104 1051 1952 = 1053 10541055 1058 = 105912 
1122 «1130 ~— 11131 i34 1142 1174 ~=«:118 1237 #1239 1240 12493 1246 1264 1266 126 
ions tCidS7LidetCiL COB 1278 «61263 s«steY)=Ss«deBeSCsdkeB?)~=Ss«dLeS1~SséteS2~Ss«d1e89s«édS Ss: 
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OZTCOC.Pil 
1385 
es 

nove 1302 
1063 
1605 

NEG le42 

EET 12es93 

ROL ibe 

ROLB 1444 

ROR Sis 

RTI 713 

830 
1214 

RTS 702 

SUB 806 

SWAB 1377 

TRAF 487 

TST 578 
1254 

TSTB £08 

ABS 3793 

ASCII 1989 
2067 

ASCIZ 1999 

BYTE 36 
2igs 

~END 218s 

EVEN 2106 

LIST } 
S4 
$57 
$72 

MACR 331 

NLIST 1 
S42 
SS7 
S72 
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. REM 1 

REPT 339 

TITLE 1 
S29 
Bea 

> 
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DEFAULT GLOBALS GENERATED: 
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1427 
1886 


871 
1352 


E05 


1428 
Le 


873 
1372 


1498 
1884 
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1580 


1441 
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1168 
1987 
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RUN-TIME i 2B see8.7 
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